--- a/ValueModel.st	Fri Feb 26 13:52:40 1999 +0100
+++ b/ValueModel.st	Fri Feb 26 14:49:08 1999 +0100
@@ -140,10 +140,17 @@
     ^ false
 
     "Created: / 27.1.1998 / 12:12:08 / cg"
+!
+
+isValueModel
+    "return true, if the receiver is some kind of valueModel;
+     true returned here - redefined from Object"
+
+    ^ true
 ! !
 
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.24 1999-02-14 10:24:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.25 1999-02-26 13:49:08 cg Exp $'
 ! !