--- a/InspectorView.st	Tue Nov 26 10:13:10 2002 +0100
+++ b/InspectorView.st	Tue Nov 26 11:46:28 2002 +0100
@@ -1085,6 +1085,10 @@
 !
 
 indexedValueAtKey:key
+    "/ kludge
+    inspectedObject isLimitedPrecisionReal ifTrue:[
+        ^ inspectedObject basicAt:key
+    ].
     ^ inspectedObject at:key
 !
 
@@ -1686,5 +1690,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.137 2002-11-18 10:12:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.138 2002-11-26 10:46:28 cg Exp $'
 ! !