--- a/LimitedPrecisionReal.st	Tue Oct 09 09:57:30 2001 +0200
+++ b/LimitedPrecisionReal.st	Tue Oct 09 19:51:37 2001 +0200
@@ -606,19 +606,19 @@
     "Modified: / 7.1.1998 / 12:01:30 / stefan"
 !
 
+isLimitedPrecisionReal
+    "return true, if the receiver is some kind of limited precision real (i.e. floating point) number;
+     true is returned here - the method is redefined from Object."
+
+    ^ true
+!
+
 isNaN
    ^ self subclassResponsibility
 
     "Modified: 12.2.1997 / 16:45:27 / cg"
 !
 
-isReal
-    "return true, if the receiver is some kind of real number;
-     false is returned here - the method is redefined from Object."
-
-    ^ true
-!
-
 negative
     "return true if the receiver is less than zero"
 
@@ -654,6 +654,6 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.40 2001-09-07 12:07:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.41 2001-10-09 17:51:37 cg Exp $'
 ! !
 LimitedPrecisionReal initialize!