--- a/Character.st	Tue Mar 21 20:49:47 2000 +0100
+++ b/Character.st	Tue Mar 21 22:21:00 2000 +0100
@@ -442,13 +442,13 @@
 < aCharacter
     "return true, if the arguments asciiValue is greater than mine"
 
-    ^ (asciivalue < aCharacter asciiValue)
+    ^ (asciivalue < aCharacter asInteger)
 !
 
 <= aCharacter
     "return true, if the arguments asciiValue is greater or equal to mine"
 
-    ^ (asciivalue <= aCharacter asciiValue)
+    ^ (asciivalue <= aCharacter asInteger)
 !
 
 = aCharacter
@@ -463,13 +463,13 @@
 > aCharacter
     "return true, if the arguments asciiValue is less than mine"
 
-    ^ (asciivalue > aCharacter asciiValue)
+    ^ (asciivalue > aCharacter asInteger)
 !
 
 >= aCharacter
     "return true, if the arguments asciiValue is less or equal to mine"
 
-    ^ (asciivalue >= aCharacter asciiValue)
+    ^ (asciivalue >= aCharacter asInteger)
 !
 
 identityHash
@@ -1082,5 +1082,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.56 1999-09-15 12:21:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.57 2000-03-21 21:21:00 cg Exp $'
 ! !