--- a/DebugView.st	Wed Oct 31 10:51:44 2001 +0100
+++ b/DebugView.st	Wed Oct 31 10:52:23 2001 +0100
@@ -191,23 +191,17 @@
 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
     "enter a debugger - do not check for recursive invocation"
 
-    |aDebugger breakpointSignal proc debugAction|
+    |aDebugger proc debugAction|
 
     StepInterruptPending := nil.
     proc := Processor activeProcess.
 
-    (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-        breakpointSignal := MessageTracer breakpointSignal.
-    ].
-
-    "/ ignore breakpoints while setting up the debugger
-    "/ to avoid recursive debugging ...
-
     debugAction := [
             aDebugger := self new.
             aDebugger notNil ifTrue:[
-                Object errorSignal handle:[:ex |
+                Error handle:[:ex |
                     'DebugView [error]: error in debugger startup - shut down debugger' errorPrintCR.
+                    'DebugView [error]: Exception:' , ex description infoPrintCR.
                     ex return
                 ] do:[
                     aDebugger mayProceed:mayProceed.
@@ -231,8 +225,11 @@
             ]
     ].
 
-    breakpointSignal notNil ifTrue:[
-        breakpointSignal handle:[:ex |
+    "/ ignore breakpoints while setting up the debugger
+    "/ to avoid recursive debugging ...
+
+    ControlInterrupt notNil ifTrue:[
+        ControlInterrupt handle:[:ex |
             'DebugView [info]: breakpoint in debugger ignored' infoPrintCR.
             ex proceed
         ] do:debugAction
@@ -243,7 +240,7 @@
 
     "nil halt"
 
-    "Modified: / 30.10.1997 / 21:10:55 / cg"
+    "Modified: / 31.10.2001 / 09:39:14 / cg"
 !
 
 new
@@ -4990,6 +4987,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.289 2001-10-23 22:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.290 2001-10-31 09:52:23 cg Exp $'
 ! !
 DebugView initialize!