--- a/CharacterArray.st	Wed Apr 22 19:38:30 2015 +0200
+++ b/CharacterArray.st	Wed Apr 22 19:45:10 2015 +0200
@@ -294,6 +294,7 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
+
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -1611,7 +1612,7 @@
                             "expand with arg itself"
                             arg isText ifTrue:[
                                 out contentsSpecies isText ifFalse:[
-                                    out := (WriteStream on:Text new) nextPutAll:out contents; yourself.
+                                    out := (TextStream ? CharacterWriteStream on:Text new) nextPutAll:out contents; yourself.
                                 ].
                                 out nextPutAll:arg.
                             ] ifFalse:[
@@ -4446,6 +4447,8 @@
 ! !
 
 
+
+
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -5826,7 +5829,7 @@
 
     |stream|
 
-    stream := (TextStream ? WriteStream) on:(self species new:self size + 20).
+    stream := (TextStream ? CharacterWriteStream) on:(self species uninitializedNew:self size + 20).
     self expandPlaceholders:escapeCharacter with:argArrayOrDictionary on:stream.
     ^ stream contents.
 
@@ -6010,7 +6013,7 @@
 
     |stream|
 
-    stream := (TextStream ? WriteStream) on:(self species new:self size + 20).
+    stream := (TextStream ? CharacterWriteStream) on:(self species uninitializedNew:self size + 20).
     self expandPlaceholdersWith:argArrayOrDictionary on:stream.
     ^ stream contents.
 
@@ -6156,7 +6159,7 @@
 
     self hasChangeOfEmphasis ifTrue:[ self error:'emphasis not supported' ].
 
-    out := WriteStream on:(String new:self size-1).
+    out := WriteStream on:(String uninitializedNew:self size-1).
 
     self do:[:ch |
         |cp|
@@ -7383,14 +7386,15 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
+
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.582 2015-04-09 11:42:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.583 2015-04-22 17:45:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.582 2015-04-09 11:42:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.583 2015-04-22 17:45:10 stefan Exp $'
 ! !