Tools__Inspector2.st
changeset 17127 ddc52a770246
parent 17125 279b7a2a1241
child 17140 c2a83a451e3b
child 17153 52b99321786d
--- a/Tools__Inspector2.st	Wed Nov 30 15:39:57 2016 +0100
+++ b/Tools__Inspector2.st	Thu Dec 01 15:06:30 2016 +0100
@@ -1513,13 +1513,13 @@
     | tab |
 
     [
-        selector == #inspector2TabForBasicInspect ifTrue:[
-            "kludge for ProtoObject, which does not implement this selector
+        (selector == #inspector2TabForBasicInspect and:[theObject isProtoObject]) ifTrue:[
+            "kludge for ProtoObject, which does neither implement this selector
              nor #perform:"
             tab := Tools::Inspector2Tab new
                         priority: 90;
                         label:'Basic';
-                        view: (InspectorView new inspect:self);
+                        view: (InspectorView new inspect:theObject);
                         yourself
         ] ifFalse:[
             tab := theObject perform:selector.