--- a/LimitedPrecisionReal.st	Fri Mar 12 19:48:55 2004 +0100
+++ b/LimitedPrecisionReal.st	Fri Mar 12 19:49:58 2004 +0100
@@ -779,18 +779,6 @@
     ^ aNumber lessFromFloat:self asFloat
 
     "Modified: 17.4.1996 / 13:34:50 / cg"
-!
-
-> aNumber
-    "return true, if the argument is less"
-
-    ^ aNumber < self
-!
-
->= aNumber
-    "return true, if the argument is less or equal"
-
-    ^ (self < aNumber) not
 ! !
 
 !LimitedPrecisionReal methodsFor:'copying'!
@@ -1030,7 +1018,7 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.57 2003-07-07 15:56:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.58 2004-03-12 18:49:58 stefan Exp $'
 ! !
 
 LimitedPrecisionReal initialize!