# HG changeset patch
# User claus
# Date 792904474 -3600
# Node ID 8ee283ae48b2ba014174e583ff31a9ff3a9e9089
# Parent  cb5e3560bd829e0d23d0fbcdcf3ccb33c55eeb8d
*** empty log message ***

diff -r cb5e3560bd82 -r 8ee283ae48b2 DebugView.st
--- a/DebugView.st	Wed Feb 15 11:39:57 1995 +0100
+++ b/DebugView.st	Thu Feb 16 04:14:34 1995 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.23 1995-02-15 10:39:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.24 1995-02-16 03:14:34 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.23 1995-02-15 10:39:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.24 1995-02-16 03:14:34 claus Exp $
 "
 !
 
@@ -147,9 +147,6 @@
     "the standard way of entering the debugger - sent from Objects
      error- and halt messages"
 
-    thisContext isRecursive ifTrue:[
-	^ MiniDebugger enterWithMessage:aString
-    ].
     ^ self enter:(thisContext sender) withMessage:aString
 
     "Debugger enterWithMessage:'hi there'"
@@ -177,6 +174,10 @@
 
     StepInterruptPending := nil.
 
+    thisContext isRecursive ifTrue:[
+	^ MiniDebugger enterWithMessage:'recursive error'.
+    ].
+
     "
      well, it could be a stepping or sending debugger up there;
      in this case, return to it. This happens, when a stepping process
@@ -196,9 +197,6 @@
 	]
     ].
 
-    thisContext isRecursive ifTrue:[
-	^ MiniDebugger enterWithMessage:'recursive error'.
-    ].
     ^ self enterUnconditional:aContext withMessage:aString
 !
 
diff -r cb5e3560bd82 -r 8ee283ae48b2 Make.proto
--- a/Make.proto	Wed Feb 15 11:39:57 1995 +0100
+++ b/Make.proto	Thu Feb 16 04:14:34 1995 +0100
@@ -19,7 +19,7 @@
 STCOPT=$(LIBTOOL_STCOPT)
 STCLOCALOPT=-Pprogramming-tools $(COMMONSYMBOLS)
 
-SBROWSER_OBJ=SBrowser.$(O)
+# SBROWSER_OBJ=SBrowser.$(O)
 # SBROWSER_OBJ=SBrowser_1.$(O) SBrowser_2.$(O)
 
 all::       abbrev.stc objs classList.stc $(OBJTARGET)