--- a/InspectorView.st	Wed Nov 30 12:30:52 2016 +0100
+++ b/InspectorView.st	Wed Nov 30 15:35:09 2016 +0100
@@ -3724,25 +3724,30 @@
     withIndexed ifTrue:[
         list add:'-' , 'basicSize' allItalic, (self valueStringInListEntryForValue:object basicSize).
     ].
-    object isCollection ifTrue:[
-        (cls whichClassImplements:#size) ~~ (cls whichClassImplements:#basicSize) ifTrue:[
-            Error handle:[:ex |
-            ] do:[
-                "/ Iterator has trouble
-                list add:'-' , 'size' allItalic , (self valueStringInListEntryForValue:object size).
+
+    object isProtoObject ifFalse:[
+        object isCollection ifTrue:[
+            (cls whichClassImplements:#size) ~~ (cls whichClassImplements:#basicSize) ifTrue:[
+                Error handle:[:ex |
+                ] do:[
+                    "/ Iterator has trouble
+                    list add:'-' , 'size' allItalic , (self valueStringInListEntryForValue:object size).
+                ].
+            ]
+        ].
+
+        cls hasImmediateInstances ifFalse:[
+            object dependents notEmptyOrNil ifTrue:[
+                list add:'-' , 'dependents' allItalic, (self valueStringInListEntryForValue:object dependents size).
             ].
-        ]
-    ].
-
-    cls hasImmediateInstances ifFalse:[
-        object dependents notEmptyOrNil ifTrue:[
-            list add:'-' , 'dependents' allItalic, (self valueStringInListEntryForValue:object dependents size).
+        ].
+
+        object isClass ifTrue:[
+            list add:'-' , 'all class vars' allItalic.
         ].
     ].
-    object isClass ifTrue:[
-        list add:'-' , 'all class vars' allItalic.
-    ].
-    cls instSize > 0 ifTrue:[
+
+    cls instSize ~~ 0 ifTrue:[
         list add:'-' , 'all inst vars' allItalic.
     ].
     (withIndexed and:[self showAllIndexedVarsInFieldList]) ifTrue:[