--- a/Workspace.st	Wed Feb 12 16:10:37 2014 +0100
+++ b/Workspace.st	Wed Feb 12 16:37:25 2014 +0100
@@ -1997,7 +1997,7 @@
                     and:[ InspectorView defaultIntegerDisplayRadix ~= 10 ]]) ifTrue:[
                         s := result displayString , ' "',(result radixPrintStringRadix: InspectorView defaultIntegerDisplayRadix),'"'.
                     ] ifFalse:[
-                        s := result displayString "printString"
+                        s := result printStringForPrintIt "old: displayString" "very old: printString"
                     ].
                     self insertSelectedStringAtCursor:s
                 ]
@@ -2205,10 +2205,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.312 2014-02-09 21:48:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.313 2014-02-12 15:37:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.312 2014-02-09 21:48:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.313 2014-02-12 15:37:25 cg Exp $'
 ! !