--- a/TwoByteString.st	Fri May 21 12:17:00 1999 +0200
+++ b/TwoByteString.st	Fri May 21 12:25:18 1999 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-CharacterArray variableWordSubclass:#TwoByteString
+CharacterArray subclass:#TwoByteString
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -113,6 +113,6 @@
 !TwoByteString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.28 1999-05-21 10:10:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.29 1999-05-21 10:25:18 cg Exp $'
 ! !
 TwoByteString initialize!