--- a/Object.st	Sat Jan 08 17:24:16 1994 +0100
+++ b/Object.st	Sat Jan 08 17:29:16 1994 +0100
@@ -32,7 +32,7 @@
 all objects is defined here.
 Also some utility stuff (like notify) and error handling is implemented here.
 
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.8 1993-12-20 17:32:17 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.9 1994-01-08 16:28:26 claus Exp $
 '!
 
 Smalltalk at:#ErrorRecursion put:false!
@@ -65,7 +65,7 @@
         UserInterruptSignal notifierString:'user Interrupt'.
 
         RecursionInterruptSignal := (Signal new) mayProceed:false.
-        RecursionInterruptSignal notifierString:'recursion interrupt'.
+        RecursionInterruptSignal notifierString:'recursion limit reached'.
 
         ExceptionInterruptSignal := (Signal new) mayProceed:true.
         ExceptionInterruptSignal notifierString:'exception Interrupt'.
@@ -881,8 +881,12 @@
 recursionInterrupt
     "recursion limit interrupt - enter debugger"
 
-    "RecursionInterruptSignal raise"
-    self error:'recursion limit reached'
+    thisContext isRecursive ifFalse:[
+        RecursionInterruptSignal raise
+"
+        self error:'recursion limit reached'
+"
+    ]
 !
 
 exceptionInterrupt