--- a/DebugView.st	Wed Aug 07 14:58:08 2002 +0200
+++ b/DebugView.st	Wed Aug 07 14:58:57 2002 +0200
@@ -26,7 +26,7 @@
 		firstContext stepHow cachable currentMethod ignoreBreakpoints
 		stepUntilEntering lastStepUntilEntering
 		lastSelectionInReceiverInspector lastSelectionInContextInspector
-		canShowMore exitAbort debuggersContext'
+		canShowMore exitAbort'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
 		DebuggingDebugger VerboseBacktraceDefault DefaultIcon
 		DefaultDebuggerBackgroundColor InitialNCHAINShown'
@@ -1132,7 +1132,6 @@
     verboseBacktrace := VerboseBacktraceDefault ? false.
 
     thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s)
-    debuggersContext := thisContext.
     busy := cachable := true.
     inspecting := false.
     inspectedProcess := Processor activeProcess.
@@ -1438,8 +1437,11 @@
 
         ex proceed
     ] do:[
-        con := debuggersContext.
-        [ con selector ~~ #enter:select: ]
+        con := thisContext sender.
+        [   
+            (con selector ~~ #enter:select:)
+            or:[con receiver ~~ self]
+        ]
         whileTrue:[ con := con sender ].
 
         con unwindThenDo:[AbortOperationRequest raise].
@@ -5803,6 +5805,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.325 2002-08-02 13:56:35 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.326 2002-08-07 12:58:57 penk Exp $'
 ! !
 DebugView initialize!