--- a/InspectorView.st	Thu Nov 19 15:51:54 2009 +0100
+++ b/InspectorView.st	Fri Nov 20 15:38:53 2009 +0100
@@ -1956,20 +1956,24 @@
         s := WriteStream on:(String new:10).
         s writeLimit:100000.
 
-        "/ mhmh - avoid sending #perform: (bad for proxy objects which pass it to somewhere..)
-        displayStringMessage == #displayString ifTrue:[
-            someValue displayOn:s.
-            "/ s := someValue displayString.
+        someValue isLazyValue ifTrue:[
+            s nextPutAll:someValue class nameWithArticle    
         ] ifFalse:[
-            displayStringMessage == #printString ifTrue:[
-                someValue printOn:s.
-                "/ s := someValue printString.
+            "/ mhmh - avoid sending #perform: (bad for proxy objects which pass it to somewhere..)
+            displayStringMessage == #displayString ifTrue:[
+                someValue displayOn:s.
+                "/ s := someValue displayString.
             ] ifFalse:[
-                displayStringMessage == #storeString ifTrue:[
-                    someValue storeOn:s.
-                    "/ s := someValue storeString.
+                displayStringMessage == #printString ifTrue:[
+                    someValue printOn:s.
+                    "/ s := someValue printString.
                 ] ifFalse:[
-                    ^ someValue perform:displayStringMessage.
+                    displayStringMessage == #storeString ifTrue:[
+                        someValue storeOn:s.
+                        "/ s := someValue storeString.
+                    ] ifFalse:[
+                        ^ someValue perform:displayStringMessage.
+                    ].
                 ].
             ].
         ].
@@ -2210,9 +2214,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.201 2009-11-16 13:46:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.202 2009-11-20 14:38:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.201 2009-11-16 13:46:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.202 2009-11-20 14:38:53 cg Exp $'
 ! !