--- a/CharacterArray.st	Mon Dec 18 15:36:29 2000 +0100
+++ b/CharacterArray.st	Mon Dec 18 19:43:51 2000 +0100
@@ -195,7 +195,7 @@
     nBitsRequired == 8 ifTrue:[
         newString := String new:sz
     ] ifFalse:[
-        newString := TwoByteString new:sz
+        newString := UnicodeString new:sz
     ].
 
     s := aByteCollection readStream.
@@ -5773,6 +5773,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.196 2000-12-18 14:36:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.197 2000-12-18 18:43:51 cg Exp $'
 ! !
 CharacterArray initialize!