--- a/PrintfScanf.st	Sun Jan 24 00:57:39 2016 +0100
+++ b/PrintfScanf.st	Mon Feb 08 10:24:06 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libbasic2' }"
 
 "{ NameSpace: Smalltalk }"
@@ -398,7 +396,8 @@
     char == $x ifTrue:[
         1 to: arg size do: [:i |
                     ('ABCDEF' includes: (arg at: i)) ifTrue:
-                            [arg at: i put: ((arg at: i) codePoint + 16r20) asCharacter]]
+                            [arg at: i put: (arg at: i) asLowercase]
+        ]
     ].
 
     precision := precision min: arg size.
@@ -605,10 +604,10 @@
 !PrintfScanf class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrintfScanf.st,v 1.10 2015-04-22 18:03:33 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrintfScanf.st,v 1.10 2015-04-22 18:03:33 stefan Exp $'
+    ^ '$Header$'
 ! !