--- a/DebugView.st	Tue Jul 09 16:02:25 2002 +0200
+++ b/DebugView.st	Tue Jul 09 16:10:10 2002 +0200
@@ -1261,7 +1261,7 @@
     "/ enter private event handling loop. This is left (and we come back here again)
     "/ when any button was pressed which requires continuation of the debuggee or
     "/ closedown of the debugger.
-    [self controlLoop] valueOnUnwindDo:[
+    [self controlLoop] ifCurtailed:[
         windowGroup notNil ifTrue:[
             windowGroup setProcess:nil.
         ].
@@ -5872,6 +5872,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.321 2002-07-05 13:51:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.322 2002-07-09 14:10:10 stefan Exp $'
 ! !
 DebugView initialize!