--- a/ValueModel.st	Mon Feb 25 21:06:00 2002 +0100
+++ b/ValueModel.st	Tue Feb 26 13:59:22 2002 +0100
@@ -123,7 +123,7 @@
         self removeDependent:someOne.
         
         self value:newValue.
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         wasDependent ifTrue:[self addDependent:someOne].
         oldInterests do:[:i |
             self addInterest:i
@@ -175,5 +175,5 @@
 !ValueModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.29 2000-11-26 13:40:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueModel.st,v 1.30 2002-02-26 12:59:16 cg Exp $'
 ! !