--- a/TwoByteString.st	Fri Mar 05 20:02:09 2004 +0100
+++ b/TwoByteString.st	Fri Mar 05 20:04:38 2004 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic2' }"
+
 CharacterArray variableWordSubclass:#TwoByteString
 	instanceVariableNames:''
 	classVariableNames:''
@@ -90,10 +92,7 @@
      Returns aCharacter (sigh).
      - reimplemented here since we store 16-bit characters"
 
-    |val|
-
-    val := aCharacter asciiValue.
-    super basicAt:index put:val.
+    super basicAt:index put:aCharacter codePoint.
     ^ aCharacter
 
     "Modified: 19.4.1996 / 11:16:22 / cg"
@@ -113,6 +112,7 @@
 !TwoByteString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.30 2000-12-19 08:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.31 2004-03-05 19:04:38 stefan Exp $'
 ! !
+
 TwoByteString initialize!