--- a/DebugView.st	Sat Nov 17 12:40:58 2001 +0100
+++ b/DebugView.st	Sat Nov 17 17:36:04 2001 +0100
@@ -193,14 +193,15 @@
 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
     "enter a debugger - do not check for recursive invocation"
 
-    |aDebugger proc debugAction|
+    |aDebugger proc|
 
     StepInterruptPending := nil.
     proc := Processor activeProcess.
 
     "/ ignore halts & breakpoints while setting up the debugger
     "/ to avoid recursive debugging ...
-    ControlInterrupt handle:[:ex |
+    (HaltInterrupt , BreakPointInterrupt) handle:[:ex |
+
 ex parameter == #doNotCatchInDebugger.
 
 ex parameter printCR.
@@ -237,7 +238,7 @@
 
     "nil halt"
 
-    "Modified: / 16.11.2001 / 17:15:48 / cg"
+    "Modified: / 17.11.2001 / 17:00:19 / cg"
 !
 
 new
@@ -425,6 +426,12 @@
     VerboseBacktraceDefault := aBoolean
 
     "Created: 11.1.1997 / 12:14:44 / cg"
+!
+
+updateStyleCache
+    DefaultDebuggerBackgroundColor := StyleSheet at:#'debugView.viewBackgroundColor'
+
+    "Modified: / 17.11.2001 / 17:31:42 / cg"
 ! !
 
 !DebugView class methodsFor:'menu specs'!
@@ -5042,6 +5049,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.299 2001-11-17 11:36:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.300 2001-11-17 16:36:04 cg Exp $'
 ! !
 DebugView initialize!