--- a/Object.st	Wed Aug 10 19:57:35 2011 +0200
+++ b/Object.st	Wed Aug 10 19:59:30 2011 +0200
@@ -526,9 +526,6 @@
 ! !
 
 
-
-
-
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -690,8 +687,6 @@
     "
 ! !
 
-
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1891,7 +1886,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'comparing'!
 
 = anObject
@@ -4889,7 +4883,8 @@
      action title screen|
 
     thisContext isRecursive ifTrue:[
-        'severe error: signalInterrupt while processing a signalInterrupt. Terminate this process' errorPrintCR.
+        'Severe error: signalInterrupt while processing a signalInterrupt.' errorPrintCR.
+        'Terminating process ' errorPrint. Processor activeProcess errorPrintCR.
         GenericException handle:[:ex |
             "/ ignore any error during termination
         ] do:[
@@ -5046,7 +5041,7 @@
         "action == #ignore"
     ].
 
-    "Modified: / 31-01-2011 / 13:04:46 / cg"
+    "Modified: / 10-08-2011 / 19:58:20 / cg"
 !
 
 spyInterrupt
@@ -7041,13 +7036,16 @@
     "helper for error messages - evaluate alock, passing it a stream on which to put
      error messages."
 
-    |s|
-
-    s := Processor activeProcess isSystemProcess
+    |stream|
+
+    stream := Processor activeProcess isSystemProcess
                         ifTrue:[Stderr]
                         ifFalse:[Transcript].
     StreamError catch:[
-        aBlock value:s.
+        aBlock value:stream.
+    ].
+    stream == Stderr ifFalse:[
+        aBlock value:Stderr.
     ].
 
     "Created: / 21-04-2011 / 12:46:21 / cg"
@@ -7241,7 +7239,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
 ?: selector
@@ -7844,7 +7841,6 @@
     "
 ! !
 
-
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -9434,7 +9430,7 @@
 !Object class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.672 2011-08-08 09:35:16 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.673 2011-08-10 17:59:30 cg Exp $'
 !
 
 version_SVN