--- a/CharacterWriteStream.st	Tue Jul 21 06:19:27 2015 +0100
+++ b/CharacterWriteStream.st	Wed Jul 22 06:38:29 2015 +0200
@@ -110,7 +110,7 @@
             newSz := newSz + additionalSize + 100.          "add some more space, maybe more will be added"
         ].
         collection := ((CharacterArray speciesForCharacterSize:newCharacterSize) new:newSz) 
-                        replaceFrom:1 to:sz with:collection startingAt:1.
+                        replaceFrom:1 to:position with:collection startingAt:1.
         currentCharacterSize := collection bitsPerCharacter.
     ].
 ! !