--- a/InspectorView.st	Fri Dec 02 13:29:44 2016 +0100
+++ b/InspectorView.st	Fri Dec 02 14:19:36 2016 +0100
@@ -2971,10 +2971,8 @@
         sel := self listEntryAt:idx.
         sel isNil ifTrue:[^ someValue].
 
-        object isProtoObject ifFalse:[
-            extraAttributes := object inspectorExtraAttributes.
-        ].
-        (extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[
+        extraAttributes := self myObjectsInspectorExtraAttributes.
+        (extraAttributes includesKey:sel) ifTrue:[
             ^ someValue "(extraAttributes at:sel) value" printString
         ].
 
@@ -3273,18 +3271,7 @@
 !
 
 derivedFields
-    "the check below is not sufficient - if some proxy catches messages, for example.
-     Therefore, we do a manual lookup here:"
-
-    (object class whichClassIncludesSelector:#inspectorExtraAttributes) isNil ifTrue:[
-        ^ #()
-    ].
-    ^ [object inspectorExtraAttributes]
-                on: MessageNotUnderstood
-                do: [:ex | ex return: #() ]
-
-    "Created: / 17-07-2006 / 11:02:32 / cg"
-    "Modified: / 29-08-2006 / 13:03:31 / cg"
+    ^ self myObjectsInspectorExtraAttributes
 !
 
 extraNamedFieldNames
@@ -3638,6 +3625,21 @@
     "Created: / 16-05-2012 / 17:53:39 / cg"
 !
 
+myObjectsInspectorExtraAttributes
+
+    "the MessageNotUnderstood check below is not sufficient - if some proxy catches messages, for example.
+     Therefore, we do a manual lookup here:"
+    (object class canUnderstand:#inspectorExtraAttributes) ifFalse:[
+        ^ #()
+    ].
+    ^ [object inspectorExtraAttributes]
+                on: MessageNotUnderstood
+                do: [:ex | ex return: #() ]
+
+    "Created: / 17-07-2006 / 11:02:32 / cg"
+    "Modified: / 29-08-2006 / 13:03:31 / cg"
+!
+
 namedFieldAt:idx
     |val|
 
@@ -3927,8 +3929,8 @@
 valueForSpecialLine:line
     |idx fieldEntry extraAttributes fields|
 
-    extraAttributes := object inspectorExtraAttributes.
-    (extraAttributes notNil and:[ extraAttributes includesKey:line ]) ifTrue:[
+    extraAttributes := self myObjectsInspectorExtraAttributes.
+    (extraAttributes includesKey:line) ifTrue:[
         ^ (extraAttributes at:line) value
     ].