--- a/InspectorView.st	Thu May 31 18:03:07 2007 +0200
+++ b/InspectorView.st	Mon Jun 04 22:26:22 2007 +0200
@@ -1033,11 +1033,24 @@
         "/ displayStringMessage := #classNameWithArticle
         "/ displayStringMessage := #displayString
         "/ displayStringMessage := #printString
-        s := someValue perform:displayStringMessage.
+        "/ mhmh - avoid sending #perform: (bad for proxy objects which pass it to somewhere..)
+        displayStringMessage == #displayString ifTrue:[
+            s := someValue displayString.
+        ] ifFalse:[
+            displayStringMessage == #printString ifTrue:[
+                s := someValue printString.
+            ] ifFalse:[
+                displayStringMessage == #storeString ifTrue:[
+                    s := someValue storeString.
+                ] ifFalse:[
+                    s := someValue perform:displayStringMessage.
+                ].
+            ].
+        ].
     ].
     ^ s.
 
-    "Modified: / 31.10.2001 / 10:44:16 / cg"
+    "Modified: / 04-06-2007 / 17:54:54 / cg"
 !
 
 defaultLabel
@@ -1952,5 +1965,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.170 2007-02-09 15:11:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.171 2007-06-04 20:26:22 cg Exp $'
 ! !