--- a/TextCollector.st	Tue Feb 26 13:57:57 2002 +0100
+++ b/TextCollector.st	Tue Feb 26 13:59:59 2002 +0100
@@ -265,7 +265,7 @@
             ].
             self checkLineLimit.
             device flush.
-        ] valueNowOrOnUnwindDo:[
+        ] ensure:[
             inFlush := false.
         ]
     ].
@@ -794,6 +794,6 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.69 2001-10-23 12:36:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.70 2002-02-26 12:59:59 cg Exp $'
 ! !
 TextCollector initialize!

--- a/TextView.st	Tue Feb 26 13:57:57 2002 +0100
+++ b/TextView.st	Tue Feb 26 13:59:59 2002 +0100
@@ -2824,7 +2824,7 @@
         self cursor:(Cursor cross).
         self beep.
         Processor activeProcess millisecondDelay:300.
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         self cursor:savedCursor
     ]
 
@@ -3244,5 +3244,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.176 2001-11-27 18:01:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.177 2002-02-26 12:59:52 cg Exp $'
 ! !