--- a/Object.st	Fri May 31 00:35:21 2013 +0100
+++ b/Object.st	Tue Jun 04 16:43:16 2013 +0100
@@ -490,7 +490,6 @@
     InfoPrinting := aBoolean
 ! !
 
-
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -513,8 +512,6 @@
 ! !
 
 
-
-
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -671,7 +668,6 @@
 ! !
 
 
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1650,7 +1646,6 @@
     "Modified: 6.7.1996 / 23:03:41 / cg"
 ! !
 
-
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1774,7 +1769,6 @@
 ! !
 
 
-
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -1964,7 +1958,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'comparing'!
 
 = anObject
@@ -3656,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.
@@ -7430,7 +7423,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
 ?: selector
@@ -8033,7 +8025,6 @@
     "
 ! !
 
-
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -8617,12 +8608,19 @@
 !
 
 isContext
-    "return true, if the receiver is some kind of context;
+    "return true, if the receiver is some kind of Context;
      false returned here - the method is only redefined in Context."
 
     ^ false
 !
 
+isDictionary
+    "return true, if the receiver is some kind of dictionary;
+     false returned here - the method is only redefined in Dictionary."
+
+    ^ false
+!
+
 isEmptyOrNil
     "return true if I am nil or an empty collection - return false here.
      (from Squeak)"
@@ -8634,7 +8632,7 @@
 !
 
 isException
-    "answer true, if this ia an Exception, that may be queried about its type"
+    "answer true, if this is an Exception"
 
     ^ false
 
@@ -9666,11 +9664,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.722 2013-05-16 10:39:47 stefan 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.722 2013-05-16 10:39:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.724 2013/06/04 13:52:42 cg Exp $'
 !
 
 version_SVN