--- a/PrintfScanf.st	Tue Jun 04 12:15:13 2013 +0200
+++ b/PrintfScanf.st	Sun Jun 16 10:36:12 2013 +0200
@@ -90,7 +90,7 @@
 !PrintfScanf class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrintfScanf.st,v 1.7 2013-01-25 11:04:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrintfScanf.st,v 1.8 2013-06-16 08:36:12 cg Exp $'
 ! !
 
 !PrintfScanf class methodsFor:'printing'!
@@ -405,7 +405,7 @@
     char == $x ifTrue:[
         1 to: arg size do: [:i |
                     ('ABCDEF' includes: (arg at: i)) ifTrue:
-                            [arg at: i put: ((arg at: i) asciiValue + 16r20) asCharacter]]
+                            [arg at: i put: ((arg at: i) codePoint + 16r20) asCharacter]]
     ].
 
     precision := precision min: arg size.
@@ -612,6 +612,6 @@
 !PrintfScanf class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrintfScanf.st,v 1.7 2013-01-25 11:04:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrintfScanf.st,v 1.8 2013-06-16 08:36:12 cg Exp $'
 ! !