--- 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.