--- a/TwoByteString.st	Sat Jan 08 17:24:16 1994 +0100
+++ b/TwoByteString.st	Sat Jan 08 17:29:16 1994 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-WordArray subclass:#TwoByteString
+ArrayedCollection variableWordSubclass:#TwoByteString
        instanceVariableNames:''
        classVariableNames:''
        poolDictionaries:''
@@ -25,7 +25,7 @@
 TwoByteStrings are like strings, but storing 16bits per character.
 The integration of them into the system is not completed ....
 
-$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.3 1993-10-13 00:18:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.4 1994-01-08 16:29:16 claus Exp $
 '!
 
 !TwoByteString class methodsFor:'instance creation'!
@@ -33,7 +33,7 @@
 basicNew:anInteger
     "return a new empty string with anInteger characters"
 
-    ^ super basicNew:anInteger atAllPut:(Character space)
+    ^ super basicNew:anInteger atAllPut:(Character space asciiValue)
 ! !
 
 !TwoByteString methodsFor:'accessing'!