--- a/Character.st	Fri Aug 23 15:00:45 2013 +0200
+++ b/Character.st	Fri Aug 23 16:39:09 2013 +0200
@@ -307,6 +307,20 @@
 
 !Character class methodsFor:'accessing untypeable characters'!
 
+controlCharacter:char
+    "Answer the Character representing ctrl-char.
+     ctrl-a -> 1; ctrl-@ -> 0"
+
+    char == $@ ifTrue:[^ self codePoint:0].
+    self assert:char isLetter.
+    ^ self codePoint:(char asLowercase - $a + 1)
+
+    "
+     self controlCharacter:$@
+     self controlCharacter:$d
+    "
+!
+
 endOfInput
     "Answer the Character representing ctrl-d (Unix-EOF)."
 
@@ -2815,9 +2829,10 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.146 2013-05-21 20:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.147 2013-08-23 14:39:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.146 2013-05-21 20:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.147 2013-08-23 14:39:09 cg Exp $'
 ! !
+