--- a/Object.st	Tue Jun 03 12:02:52 1997 +0200
+++ b/Object.st	Tue Jun 03 12:04:11 1997 +0200
@@ -5492,6 +5492,14 @@
     ^ false
 !
 
+isImmediate
+    "return true if this object has immediate representation"
+
+    ^ self class hasImmediateInstances
+
+    "Created: 3.6.1997 / 12:00:18 / cg"
+!
+
 isInteger
     "return true, if the receiver is some kind of integer number;
      false is returned here - the method is only redefined in Integer."
@@ -5984,6 +5992,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.194 1997-05-20 19:20:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.195 1997-06-03 10:04:11 cg Exp $'
 ! !
 Object initialize!