--- a/extensions.st	Tue Mar 20 21:54:16 2012 +0100
+++ b/extensions.st	Tue Mar 20 22:37:52 2012 +0100
@@ -826,6 +826,28 @@
     "Modified: / 06-10-2006 / 13:57:28 / cg"
 ! !
 
+!LimitedPrecisionReal methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    "extra (pseudo instvar) entries to be shown in an inspector."
+
+    ^ Dictionary new
+        declareAllNewFrom:(super inspectorExtraAttributes ? #());
+        add:'-hex' ->
+            [
+                String
+                    streamContents:[:s |
+                        self byteSize to:1 by:-1 do:[:i |
+                            (((self basicAt:i) printStringRadix:16) paddedTo:2 with:$0)
+                                printOn:s
+                        ]
+                    ]
+            ];
+        yourself
+
+    "Created: / 20-03-2012 / 22:34:46 / cg"
+! !
+
 !MenuView methodsFor:'accessing-behavior'!
 
 shortKeys
@@ -1888,5 +1910,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.76 2012-03-08 20:30:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.77 2012-03-20 21:37:52 cg Exp $'
 ! !
\ No newline at end of file