--- a/ValueModel.st	Thu Nov 23 19:40:46 2000 +0100
+++ b/ValueModel.st	Sun Nov 26 14:40:11 2000 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 Model subclass:#ValueModel
 	instanceVariableNames:''
 	classVariableNames:''
@@ -99,7 +101,7 @@
     oldValue := self value.
     oldValue ~~ newValue ifTrue:[
         self setValue:newValue.
-        self changed:#value
+        self changed:#value with:newValue
     ]
 
     "Modified: 27.3.1997 / 15:14:04 / cg"
@@ -173,5 +175,5 @@
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.28 2000-03-14 17:20:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.29 2000-11-26 13:40:11 cg Exp $'
 ! !