--- a/Object.st	Wed Jun 05 20:08:48 2019 +0200
+++ b/Object.st	Wed Jun 05 20:27:48 2019 +0200
@@ -261,7 +261,6 @@
     "Modified: / 30-01-2019 / 16:26:31 / Claus Gittinger"
 ! !
 
-
 !Object class methodsFor:'Compatibility-ST80'!
 
 rootError
@@ -504,7 +503,6 @@
     InfoPrinting := aBoolean
 ! !
 
-
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -528,11 +526,6 @@
 
 
 
-
-
-
-
-
 !Object methodsFor:'Compatibility-GNU'!
 
 display
@@ -549,7 +542,6 @@
     self printCR
 ! !
 
-
 !Object methodsFor:'Compatibility-ST80'!
 
 isMetaclass
@@ -634,7 +626,6 @@
     self errorKeyNotFound:aKey.
 ! !
 
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1731,8 +1722,6 @@
     "
 ! !
 
-
-
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1877,8 +1866,6 @@
 ! !
 
 
-
-
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -2321,7 +2308,6 @@
 %}
 ! !
 
-
 !Object methodsFor:'converting'!
 
 -> anObject
@@ -5489,14 +5475,16 @@
                 caller := caller sender.
             ].
 
-            'Object [info]: recursionInterrupt from:' errorPrintCR.
+            'Object [info]: recursionInterrupt ( from:' _errorPrint.
+            level _errorPrint. ') from:' _errorPrintCR.
+            
             con := con sender.
             remaining := 500.
             [con notNil and:[remaining > 0]] whileTrue:[
                 sender := con sender.
                 RecursionInterruptSignal handle:[:ex |
                 ] do:[
-                    '| ' _errorPrint. con fullPrint.
+                    '| ' _errorPrint. con savePrint.
                 ].
                 nSkipped := 0.
                 [sender notNil and:[sender sender notNil
@@ -5520,6 +5508,7 @@
     "Modified: / 10-11-2001 / 15:15:56 / cg"
     "Modified: / 15-03-2017 / 17:26:56 / stefan"
     "Modified: / 20-02-2019 / 14:22:11 / Stefan Vogel"
+    "Modified: / 05-06-2019 / 20:27:31 / Claus Gittinger"
 !
 
 schedulerInterrupt
@@ -7419,7 +7408,6 @@
     "
 ! !
 
-
 !Object methodsFor:'printing & storing'!
 
 _errorPrint
@@ -8481,7 +8469,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
 ?:selector
@@ -9149,7 +9136,6 @@
     "Modified: / 30-07-2018 / 09:02:13 / Stefan Vogel"
 ! !
 
-
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -11059,9 +11045,6 @@
     ^ aVisitor visitObject:self with:aParameter
 ! !
 
-
-
-
 !Object class methodsFor:'documentation'!
 
 version