--- a/MessageTally.st	Fri Jul 05 15:45:18 2002 +0200
+++ b/MessageTally.st	Tue Jul 09 16:12:43 2002 +0200
@@ -175,7 +175,7 @@
     [
         [
             aTally spyLeafOn:aBlock interval:ms.
-        ] valueOnUnwindDo:[
+        ] ifCurtailed:[
             outStream nextPutLine:'TALLY: block returned'.
         ]
     ] ensure:[
@@ -195,7 +195,7 @@
     [
         [
             aTally spyOn:aBlock interval:ms.
-        ] valueOnUnwindDo:[
+        ] ifCurtailed:[
             outStream nextPutLine:'TALLY: block returned'.
         ]
     ] ensure:[
@@ -683,5 +683,5 @@
 !MessageTally class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.40 2002-02-26 13:02:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.41 2002-07-09 14:12:43 stefan Exp $'
 ! !