--- a/Change.st	Wed Mar 17 12:22:53 2004 +0100
+++ b/Change.st	Wed Mar 17 17:17:37 2004 +0100
@@ -98,7 +98,7 @@
     |s|
 
     source isNil ifTrue:[
-        s := '' writeStream.
+        s := String writeStream.
         self printOn:s.
         ^ s contents.
     ].
@@ -181,11 +181,9 @@
 printStringWithoutClassName
     |s|
 
-    s := '' writeStream.
+    s := String writeStream.
     self printWithoutClassNameOn:s.
     ^ s contents
-
-
 !
 
 printWithoutClassNameOn:aStream
@@ -290,5 +288,5 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.40 2003-06-10 08:56:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.41 2004-03-17 16:17:37 cg Exp $'
 ! !