--- a/Object.st	Sat Nov 04 15:40:24 1995 +0100
+++ b/Object.st	Sat Nov 04 18:28:54 1995 +0100
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.67 1995-10-31 00:34:36 stefan Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.68 1995-11-04 17:28:01 cg Exp $
 '!
 
 !Object class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.67 1995-10-31 00:34:36 stefan Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.68 1995-11-04 17:28:01 cg Exp $
 "
 !
 
@@ -716,6 +716,13 @@
     ^ false
 !
 
+isReal
+    "return true, if the receiver is some kind of real number;
+     false is returned here - the method is only redefined in LimitedPrecisionReal."
+
+    ^ false
+!
+
 isInteger
     "return true, if the receiver is some kind of integer number;
      false is returned here - the method is only redefined in Integer."