--- a/InspectorView.st	Fri Feb 06 19:03:38 2004 +0100
+++ b/InspectorView.st	Fri Feb 06 19:15:32 2004 +0100
@@ -995,7 +995,14 @@
 
     (inspectedObject isKindOf:ByteArray) ifTrue:[
         (sel startsWith:'-hex') ifTrue:[
-            ^ String streamContents:[:s | inspectedObject asByteArray printOn:s base:16 showRadix:true]
+            ^ String streamContents:
+                [:s | 
+                        inspectedObject class isWords ifTrue:[
+                            inspectedObject asWordArray printOn:s base:16 showRadix:true
+                        ] ifFalse:[
+                            inspectedObject asByteArray printOn:s base:16 showRadix:true
+                        ]
+                ]
         ].
     ].
 
@@ -1710,5 +1717,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.143 2004-01-12 13:46:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.144 2004-02-06 18:15:32 ca Exp $'
 ! !