--- a/extensions.st	Mon Feb 08 10:24:06 2016 +0100
+++ b/extensions.st	Mon Feb 08 10:25:01 2016 +0100
@@ -431,7 +431,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) asLowercase
             ]
         ]
     ].