--- a/Workspace.st	Tue Jan 03 19:05:17 2017 +0100
+++ b/Workspace.st	Tue Jan 10 09:49:12 2017 +0100
@@ -2100,13 +2100,17 @@
                     (lang notNil and:[(printer := lang valuePrinterClass) notNil]) ifTrue:[
                         s := printer printStringForPrintItOf:result
                     ] ifFalse:[
-                        (result isInteger
-                        and:[ result > 10
-                        and:[ InspectorView defaultIntegerDisplayRadix ~= 10 ]]) ifTrue:[
-                            s := result displayString , ' "',(result radixPrintStringRadix: InspectorView defaultIntegerDisplayRadix),'"'.
+                        result isProtoObject ifTrue:[
+                            s := result displayString.
                         ] ifFalse:[
-                            s := result printStringForPrintIt "old: displayString" "very old: printString"
-                        ].
+                            (result isInteger
+                             and:[ result > 10
+                             and:[ InspectorView defaultIntegerDisplayRadix ~= 10]]) ifTrue:[
+                                s := result displayString , ' "',(result radixPrintStringRadix: InspectorView defaultIntegerDisplayRadix),'"'.
+                            ] ifFalse:[
+                                s := result printStringForPrintIt "old: displayString" "very old: printString"
+                            ].
+                        ]
                     ].
                     
                     self withAutoIndent:false do:[