--- a/DebugView.st	Tue Feb 26 14:04:37 2002 +0100
+++ b/DebugView.st	Tue Feb 26 14:07:21 2002 +0100
@@ -5020,7 +5020,7 @@
         [haveControl] whileTrue:[
             self controlLoopCatchingErrors
         ].
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         catchBlock := nil.
         haveControl := false
     ].
@@ -5867,6 +5867,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.316 2002-02-26 11:02:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.317 2002-02-26 13:05:57 cg Exp $'
 ! !
 DebugView initialize!