--- a/DictionaryInspectorView.st	Sat Jun 26 18:30:54 1999 +0200
+++ b/DictionaryInspectorView.st	Sun Jun 27 20:38:19 1999 +0200
@@ -216,7 +216,9 @@
         ] ifFalse:[
             aList := inspectedObject class allInstVarNames asOrderedCollection.
             "/ hide Dictionary stuff
-            aList := aList copyFrom:(Dictionary instSize + 1).
+            (inspectedObject isKindOf:Dictionary) ifTrue:[
+                aList := aList copyFrom:(Dictionary instSize + 1).
+            ].
         ].
         hideReceiver ifFalse:[aList addFirst:'self'].
 
@@ -296,5 +298,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.38 1999-06-26 15:50:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.39 1999-06-27 18:38:19 cg Exp $'
 ! !