--- a/MiniDebugger.st	Tue Aug 21 14:09:37 2001 +0200
+++ b/MiniDebugger.st	Tue Aug 21 14:11:41 2001 +0200
@@ -56,8 +56,6 @@
 
     StepInterruptPending := nil.
 
-thisContext isRecursive ifTrue:[Smalltalk exit].
-
     Object errorSignal handle:[:ex |
         ex return
     ] do:[
@@ -84,6 +82,8 @@
     ].
 
     OperatingSystem hasConsole ifFalse:[
+thisContext isRecursive ifTrue:[Smalltalk exit].
+
         Object errorSignal handle:[:ex |
             ex return
         ] do:[
@@ -758,5 +758,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.51 2001-08-21 12:09:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.52 2001-08-21 12:11:41 cg Exp $'
 ! !