--- a/MiniDebugger.st	Sun May 25 15:04:34 1997 +0200
+++ b/MiniDebugger.st	Sun May 25 15:44:47 1997 +0200
@@ -65,10 +65,18 @@
 
     StepInterruptPending := nil.
 
-    aString printCR.
-    Processor notNil ifTrue:[
-        active := Processor activeProcess.
-        'process: id=' print. active id print. ' name=' print. active name printCR.
+    Object errorSignal handle:[:ex |
+	ex return
+    ] do:[
+	thisContext isRecursive ifTrue:[
+	    "/ 'recursive error in debugger ignored' errorPrintCR.
+	    ^ self
+	].
+        aString printCR.
+        Processor notNil ifTrue:[
+            active := Processor activeProcess.
+            'process: id=' print. active id print. ' name=' print. active name printCR.
+        ].
     ].
     self new enter.
     ^ nil
@@ -491,5 +499,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.30 1997-01-10 11:21:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.31 1997-05-25 13:44:47 cg Exp $'
 ! !