--- a/ValueHolderWithWeakDependents.st	Mon Feb 25 21:06:00 2002 +0100
+++ b/ValueHolderWithWeakDependents.st	Tue Feb 26 13:59:22 2002 +0100
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libview2' }"
+
 ValueHolder subclass:#ValueHolderWithWeakDependents
 	instanceVariableNames:''
 	classVariableNames:''
@@ -38,15 +40,13 @@
                 deps add:anObject
             ]
         ]
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         wasBlocked ifFalse:[
             OperatingSystem unblockInterrupts
         ]
     ]
 
     "Modified: 8.1.1997 / 23:40:30 / cg"
-
-
 !
 
 dependentsDo:aBlock
@@ -110,18 +110,17 @@
                 ]
             ]
         ]
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         wasBlocked ifFalse:[
             OperatingSystem unblockInterrupts
         ]
     ]
 
     "Modified: / 26.1.1998 / 19:51:50 / cg"
-
 ! !
 
 !ValueHolderWithWeakDependents class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ValueHolderWithWeakDependents.st,v 1.1 1999-10-25 14:52:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ValueHolderWithWeakDependents.st,v 1.2 2002-02-26 12:59:22 cg Exp $'
 ! !

--- 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 $'
 ! !