--- a/Character.st	Wed Sep 28 13:46:37 2011 +0100
+++ b/Character.st	Wed Sep 28 20:07:49 2011 +0100
@@ -305,6 +305,7 @@
     ^ self codePoint:anInteger
 ! !
 
+
 !Character class methodsFor:'accessing untypeable characters'!
 
 endOfInput
@@ -337,6 +338,7 @@
     ^ self codePoint:41
 ! !
 
+
 !Character class methodsFor:'constants'!
 
 backspace
@@ -573,6 +575,7 @@
     "
 ! !
 
+
 !Character methodsFor:'Compatibility-Dolphin'!
 
 isAlphaNumeric
@@ -620,6 +623,7 @@
       or:[ (asciivalue == 247 ) ]]]]]
 ! !
 
+
 !Character methodsFor:'accessing'!
 
 codePoint
@@ -651,27 +655,6 @@
     "Modified: 27.6.1996 / 12:34:51 / cg"
 !
 
-- aMagnitude
-    "Return the Character that is <aMagnitude> lower than the receiver.
-     Wrap if the resulting value is not a legal Character value. (JS)
-     claus:
-	modified to return the difference as integer, if the argument
-	is another character. If the argument is a number, a character is
-	returned."
-
-    aMagnitude isCharacter ifTrue:[
-	^ asciivalue - aMagnitude asInteger
-    ].
-    ^ Character codePoint:((asciivalue - aMagnitude asInteger) \\ 16r3FFFFFFF)
-
-    "
-     $z - $a
-     $d - 3
-    "
-
-    "Modified: 27.6.1996 / 12:35:34 / cg"
-!
-
 // aMagnitude
     "Return the Character who's value is the receiver divided by <aMagnitude>.
      Wrap if the resulting value is not a legal Character value. (JS)"
@@ -2271,6 +2254,7 @@
     ^ false
 ! !
 
+
 !Character methodsFor:'testing - national'!
 
 isNationalAlphaNumeric
@@ -2799,6 +2783,9 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Character.st 10665 2011-08-10 14:59:08Z vranyj1 $'
+    ^ '$Id: Character.st 10695 2011-09-28 19:07:49Z vranyj1 $'
+!
+
+version_SVN
+    ^ '$Id: Character.st 10695 2011-09-28 19:07:49Z vranyj1 $'
 ! !
-