--- a/DebugView.st	Wed Oct 23 17:34:01 1996 +0200
+++ b/DebugView.st	Wed Oct 23 17:35:33 1996 +0200
@@ -2524,23 +2524,24 @@
 
             signal := ex signal.
 
-            "/
-            "/ ignore recursive breakpoints
-            "/
-            signal == MessageTracer breakpointSignal ifTrue:[
-                'breakpoint in debugger ignored' errorPrintNL.
-                ex proceed
-            ].
-            (signal == ActivityNotificationSignal) ifTrue:[
-                ex proceed
-            ].
-            signal == Exception recursiveExceptionSignal ifTrue:[
-                ex parameter signal == MessageTracer breakpointSignal ifTrue:[
-                    'recursive breakpoint in debugger ignored' errorPrintNL.
-                    ex proceed.
+            DebuggingDebugger ~~ true ifTrue:[
+                "/
+                "/ ignore recursive breakpoints
+                "/
+                signal == MessageTracer breakpointSignal ifTrue:[
+                    'breakpoint in debugger ignored' errorPrintNL.
+                    ex proceed
                 ].
-
-                self showError:'*** Recursive error in debugger:
+                (signal == ActivityNotificationSignal) ifTrue:[
+                    ex proceed
+                ].
+                signal == Exception recursiveExceptionSignal ifTrue:[
+                    ex parameter signal == MessageTracer breakpointSignal ifTrue:[
+                        'recursive breakpoint in debugger ignored' errorPrintNL.
+                        ex proceed.
+                    ].
+
+                    self showError:'*** Recursive error in debugger:
 
 >>>> Signal:  ' , ex signal printString , '
 >>>>          ' , ex parameter signal printString , '
@@ -2548,7 +2549,8 @@
 >>>> Message: ' , ex errorString , '
 
 cought & ignored.'.
-                ex return
+                    ex return
+                ].
             ].
 
             self topView raiseDeiconified.    
@@ -2574,7 +2576,7 @@
     catchBlock := nil.
 
     "Created: 24.11.1995 / 20:33:45 / cg"
-    "Modified: 7.5.1996 / 10:04:41 / cg"
+    "Modified: 23.10.1996 / 16:34:59 / cg"
 ! !
 
 !DebugView methodsFor:'user interaction'!
@@ -2981,5 +2983,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.112 1996-10-23 00:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.113 1996-10-23 15:35:33 cg Exp $'
 ! !