--- a/DebugView.st	Tue Apr 11 18:31:23 1995 +0200
+++ b/DebugView.st	Wed May 03 03:13:28 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.32 1995-04-11 16:30:51 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.33 1995-05-03 01:12:21 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.32 1995-04-11 16:30:51 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.33 1995-05-03 01:12:21 claus Exp $
 "
 !
 
@@ -137,10 +137,12 @@
      This is the standard way of entering the debugger;
      sent from error- and halt messages."
 
+    |active|
+
     StepInterruptPending := nil.
 
     thisContext isRecursive ifTrue:[
-	^ MiniDebugger enterWithMessage:'recursive error'.
+	^ MiniDebugger enterWithMessage:'recursive error in debugger'.
     ].
 
     "
@@ -150,12 +152,13 @@
      stepping debugger to come up again instead of a new one.
     "
     OpenDebuggers notNil ifTrue:[
+	active := Processor activeProcess.
 	OpenDebuggers do:[:aDebugger |
 	    aDebugger notNil ifTrue:[
-		(aDebugger inspectedProcess == Processor activeProcess) ifTrue:[
+		(aDebugger inspectedProcess == active) ifTrue:[
 "/ 'entering stepping debugger again' printNL.
 		    aDebugger unstep.
-		    aDebugger setLabelFor:aString in:Processor activeProcess.
+		    aDebugger setLabelFor:aString in:active.
 		    ^ aDebugger enter:aContext.
 		]
 	    ]
@@ -283,7 +286,7 @@
 	    ].
 	    ex return.
 	] do:[
-	    windowGroup eventLoopWhile:[true]
+	    windowGroup eventLoopWhile:[true] onLeave:[]
 	].
     ].
     catchBlock := nil.