--- a/InspectorView.st	Fri Nov 26 15:26:12 1999 +0100
+++ b/InspectorView.st	Mon Nov 29 19:24:38 1999 +0100
@@ -849,9 +849,10 @@
     |aList|
 
     aList := inspectedObject class allInstVarNames asOrderedCollection.
-    "/ hide some stuff
-    aList := aList copyFrom:(self baseInspectedObjectClass instSize + 1).
-
+    (inspectedObject class isSubclassOf:self baseInspectedObjectClass) ifTrue:[
+        "/ hide some stuff
+        aList := aList copyFrom:(self baseInspectedObjectClass instSize + 1).
+    ].
     ^ aList
 
 !
@@ -1174,5 +1175,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.98 1999-09-23 20:37:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.99 1999-11-29 18:24:38 cg Exp $'
 ! !