--- a/Object.st	Wed Apr 26 12:55:14 2006 +0200
+++ b/Object.st	Wed Apr 26 13:13:22 2006 +0200
@@ -622,6 +622,12 @@
     ]
 !
 
+isInMemory
+    "All normal objects are."
+
+    ^ true
+!
+
 newTileMorphRepresentative
         ^ TileMorph new setLiteral: self
 !
@@ -7111,6 +7117,7 @@
     ^ s contents
 ! !
 
+
 !Object methodsFor:'queries'!
 
 basicSize
@@ -9438,7 +9445,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.557 2006-04-12 14:04:11 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.558 2006-04-26 11:13:22 cg Exp $'
 ! !
 
 Object initialize!