--- a/InspectorView.st	Tue Aug 29 13:06:45 2006 +0200
+++ b/InspectorView.st	Tue Aug 29 13:06:52 2006 +0200
@@ -995,12 +995,17 @@
 !
 
 derivedFields
+    "the check below is not sufficient - if someone catches messages, for example.
+     Therefore, we do a manual lookup here:"
+    (object class whichClassImplements:#inspectorExtraAttributes) isNil ifTrue:[
+        ^ #()
+    ].
     ^ [object inspectorExtraAttributes]
                 on: MessageNotUnderstood
                 do: [:ex | ex return: #() ]
 
     "Created: / 17-07-2006 / 11:02:32 / cg"
-    "Modified: / 03-08-2006 / 14:04:08 / cg"
+    "Modified: / 29-08-2006 / 13:03:31 / cg"
 !
 
 displayStringForValue:someValue 
@@ -1086,12 +1091,17 @@
     "by redefining inspectorExtraNamedFields to return an array of
      pseudo-fieldName->value associations, the inspectors left list can be extended"
 
+    "the check below is not sufficient - if someone catches messages, for example.
+     Therefore, we do a manual lookup here:"
+    (object class whichClassImplements:#inspectorExtraNamedFields) isNil ifTrue:[
+        ^ #()
+    ].
     ^ [object inspectorExtraNamedFields]
                 on: MessageNotUnderstood
                 do: [:ex | ex return: #() ]
 
     "Created: / 03-08-2006 / 13:34:18 / cg"
-    "Modified: / 22-08-2006 / 11:49:58 / cg"
+    "Modified: / 29-08-2006 / 13:03:57 / cg"
 !
 
 extraNamedVarIndexForLine:lineNr
@@ -1950,5 +1960,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.165 2006-08-22 09:57:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.166 2006-08-29 11:06:52 cg Exp $'
 ! !