--- a/Object.st	Wed Aug 21 11:51:30 2013 +0100
+++ b/Object.st	Fri Aug 23 11:44:50 2013 +0100
@@ -3688,7 +3688,7 @@
 
     |s|
 
-    s := CharacterWriteStream on:(String new:32).
+    s := TextStream on:(String new:32).
     self displayOn:s.
     ^ s contents
 
@@ -9595,7 +9595,7 @@
 
             "/ show the first few contexts
 
-            s := WriteStream with:aString.
+            s := CharacterWriteStream with:aString.
             s cr; cr.
             s nextPutLine:'Calling Chain:'.
             s nextPutLine:'--------------------------------------------------------------'.
@@ -9778,11 +9778,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.732 2013-07-30 19:53:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.733 2013-08-19 15:58:24 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.732 2013-07-30 19:53:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.733 2013-08-19 15:58:24 stefan Exp $'
 !
 
 version_SVN