--- a/DebugView.st	Fri Oct 29 12:00:48 2010 +0200
+++ b/DebugView.st	Fri Oct 29 14:14:44 2010 +0200
@@ -990,7 +990,7 @@
         nil
       )
 
-    "Modified: / 27-10-2010 / 12:52:09 / cg"
+    "Modified: / 29-10-2010 / 14:14:24 / cg"
 ! !
 
 !DebugView class methodsFor:'misc'!
@@ -1519,7 +1519,10 @@
         (exitAction == #return) ifTrue:[ self exit_return ].
         (exitAction == #restart) ifTrue:[ self exit_restart ].
         (exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate ].
-        (exitAction == #terminate) ifTrue:[ self exit_terminate ]
+        (exitAction == #terminate) ifTrue:[ self exit_terminate ].
+        exitAction isBlock ifTrue:[
+            self exit_unwindThenDo:exitAction
+        ].
     ].
 
     "/ stepping - window stays open
@@ -1623,7 +1626,7 @@
     "Modified: / 17-04-1997 / 13:01:32 / stefan"
     "Created: / 30-10-1997 / 21:08:18 / cg"
     "Modified: / 13-10-1998 / 19:56:59 / ps"
-    "Modified: / 22-10-2010 / 12:10:09 / cg"
+    "Modified: / 29-10-2010 / 13:42:26 / cg"
 !
 
 exit_abort
@@ -7058,11 +7061,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.511 2010-10-27 11:33:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.512 2010-10-29 12:14:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.511 2010-10-27 11:33:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.512 2010-10-29 12:14:44 cg Exp $'
 ! !
 
 DebugView initialize!