--- a/Character.st	Wed Mar 05 22:36:23 2014 +0100
+++ b/Character.st	Wed Mar 05 22:36:55 2014 +0100
@@ -305,7 +305,6 @@
     ^ self codePoint:anInteger
 ! !
 
-
 !Character class methodsFor:'accessing untypeable characters'!
 
 controlCharacter:char
@@ -352,7 +351,6 @@
     ^ self codePoint:41
 ! !
 
-
 !Character class methodsFor:'constants'!
 
 backspace
@@ -583,7 +581,6 @@
     "
 ! !
 
-
 !Character methodsFor:'Compatibility-Dolphin'!
 
 isAlphaNumeric
@@ -721,8 +718,10 @@
     ^ asciivalue = aCharacter codePoint
 
     "
-	$A = 65
-	$A = 43
+        $A = (Character value:65)       
+        $A = (Character codePoint:65)       
+        $A = ($B-1)                   
+        $A = 65                       
     "
 !
 
@@ -2884,10 +2883,10 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.151 2014-02-21 11:55:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.152 2014-03-05 21:36:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.151 2014-02-21 11:55:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.152 2014-03-05 21:36:55 cg Exp $'
 ! !