--- a/InspectorView.st	Wed Mar 03 22:09:33 2004 +0100
+++ b/InspectorView.st	Wed Mar 03 22:12:26 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1000,7 +1002,11 @@
                         inspectedObject class isWords ifTrue:[
                             inspectedObject asWordArray printOn:s base:16 showRadix:true
                         ] ifFalse:[
-                            inspectedObject asByteArray printOn:s base:16 showRadix:true
+                            inspectedObject class isLongs ifTrue:[
+                                inspectedObject asLongIntegerArray printOn:s base:16 showRadix:true
+                            ] ifFalse:[
+                                inspectedObject asByteArray printOn:s base:16 showRadix:true
+                            ]
                         ]
                 ]
         ].
@@ -1720,5 +1726,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.146 2004-02-21 11:26:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.147 2004-03-03 21:12:26 cg Exp $'
 ! !