--- a/FourByteString.st	Wed Mar 03 21:49:26 2004 +0100
+++ b/FourByteString.st	Fri Mar 05 20:02:42 2004 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-"{ Package: 'stx:libbasic' }"
+"{ Package: 'stx:libbasic2' }"
 
 CharacterArray variableLongSubclass:#FourByteString
 	instanceVariableNames:''
@@ -92,7 +92,7 @@
 
     |val|
 
-    val := aCharacter asciiValue.
+    val := aCharacter codePoint.
     super basicAt:index put:val.
     ^ aCharacter
 ! !
@@ -109,7 +109,7 @@
 !FourByteString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FourByteString.st,v 1.1 2004-02-13 12:46:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FourByteString.st,v 1.2 2004-03-05 19:02:31 stefan Exp $'
 ! !
 
 FourByteString initialize!