--- a/Object.st	Fri Feb 26 13:53:03 1999 +0100
+++ b/Object.st	Fri Feb 26 14:48:59 1999 +0100
@@ -6998,6 +6998,14 @@
     "Created: 12.5.1996 / 10:56:50 / cg"
 !
 
+isValueModel
+    "return true, if the receiver is some kind of valueModel;
+     false is returned here - the method is only redefined in ValueModel."
+
+    ^ false
+
+!
+
 isVariable
     "return true if the receiver has indexed instance variables,
      false otherwise."
@@ -7316,6 +7324,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.254 1999-02-26 12:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.255 1999-02-26 13:48:59 cg Exp $'
 ! !
 Object initialize!