--- a/Object.st	Tue Jun 04 12:48:30 2013 +0200
+++ b/Object.st	Tue Jun 04 15:52:42 2013 +0200
@@ -3649,7 +3649,7 @@
 
     |s yBaseline|
 
-    s := self displayString.
+    s := self isString ifTrue:[self] ifFalse:[self displayString].
     yBaseline := y "+ aGc font ascent".
     opaque ifTrue:[
         aGc displayOpaqueString:s x:x y:yBaseline.
@@ -9664,11 +9664,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.723 2013-06-04 08:33:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.724 2013-06-04 13:52:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.723 2013-06-04 08:33:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.724 2013-06-04 13:52:42 cg Exp $'
 !
 
 version_SVN