--- a/CharacterArray.st	Sun Feb 22 16:38:57 2004 +0100
+++ b/CharacterArray.st	Sun Feb 22 16:40:09 2004 +0100
@@ -5295,7 +5295,7 @@
     escape := self class matchEscapeCharacter.
 
     in := self readStream.
-    out := '' writeStream.
+    out := WriteStream on:(self species new:self size).
     [in atEnd] whileFalse:[
         c := in next.
         (c == escape or:['*[#' includes:c]) ifTrue:[
@@ -6227,7 +6227,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.282 2004-02-21 12:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.283 2004-02-22 15:39:22 cg Exp $'
 ! !
 
 CharacterArray initialize!