--- a/ByteArray.st	Fri Mar 05 20:06:02 2004 +0100
+++ b/ByteArray.st	Fri Mar 05 20:08:08 2004 +0100
@@ -143,8 +143,8 @@
      range 97 .. otherwise, its exact."
 
     lastCharacter := aString last.
-    lastCharacter asciiValue > 96 ifTrue:[
-        stop := stop - 3 + lastCharacter asciiValue - 96
+    lastCharacter codePoint > 96 ifTrue:[
+        stop := stop - 3 + lastCharacter codePoint - 96
     ].
     bytes := self new:stop.
 
@@ -152,23 +152,23 @@
     [dstIndex <= stop] whileTrue:[
         "/ take 4 characters ...
         "/ cg: allow lineBreak befor eeach group of 4
-        sixBits := (aString at:index) asciiValue.
+        sixBits := (aString at:index) codePoint.
         [sixBits < 32] whileTrue:[
             index := index + 1.
-            sixBits := (aString at:index) asciiValue.
+            sixBits := (aString at:index) codePoint.
         ].
         sixBits := sixBits bitAnd:16r3F.
         n := sixBits.
         
-        sixBits := (aString at:index+1) asciiValue.
+        sixBits := (aString at:index+1) codePoint.
         sixBits := sixBits bitAnd:16r3F.
         n := (n bitShift:6) + sixBits.
 
-        sixBits := (aString at:index+2) asciiValue.
+        sixBits := (aString at:index+2) codePoint.
         sixBits := sixBits bitAnd:16r3F.
         n := (n bitShift:6) + sixBits.
 
-        sixBits := (aString at:index+3) asciiValue.
+        sixBits := (aString at:index+3) codePoint.
         sixBits := sixBits bitAnd:16r3F.
         n := (n bitShift:6) + sixBits.
 
@@ -3312,5 +3312,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.161 2004-01-29 13:21:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.162 2004-03-05 19:08:08 stefan Exp $'
 ! !