--- a/Object.st	Thu Aug 11 23:37:22 1994 +0200
+++ b/Object.st	Thu Aug 11 23:38:13 1994 +0200
@@ -19,7 +19,6 @@
                            NotFoundSignal KeyNotFoundSignal ElementOutOfBoundsSignal
                            InformationSignal PrimitiveFailureSignal
                            AbortSignal OSSignals
-                           PrivateMethodSignal
                            SystemNotifier SystemWarningBox SystemInfoBox SystemConfirmer'
        poolDictionaries:''
        category:'Kernel-Objects'
@@ -29,7 +28,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.19 1994-08-07 19:29:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.20 1994-08-11 21:38:13 claus Exp $
 '!
 
 "these will become classVariables soon ..."
@@ -54,7 +53,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.19 1994-08-07 19:29:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.20 1994-08-11 21:38:13 claus Exp $
 "
 !
 
@@ -84,7 +83,6 @@
         KeyNotFoundSignal 
         ElementOutOfBoundsSignal
         InformationSignal
-        PrivateMethodSignal
 
 
         AbortSignal      <Signal>       Signal raised by debugger, to abort a computation
@@ -1153,6 +1151,13 @@
                   and:[signalNumber ~~ OperatingSystem sigILL
                   and:[signalNumber ~~ OperatingSystem sigSEGV]].
 
+    ignorable ifFalse:[
+        thisContext isRecursive ifTrue:[
+            MiniDebugger enterWithMessage:'recursive signal'.
+            ^ self
+        ]
+    ].
+
     "
      ungrab - in case it happened in a box/popupview
      otherwise display stays locked