--- a/Object.st	Tue May 07 15:58:24 2013 +0200
+++ b/Object.st	Tue May 07 16:04:27 2013 +0200
@@ -15,12 +15,12 @@
 	instanceVariableNames:''
 	classVariableNames:'ErrorSignal HaltSignal MessageNotUnderstoodSignal
 		UserInterruptSignal RecursionInterruptSignal
-		ExceptionInterruptSignal SubscriptOutOfBoundsSignal
-		IndexNotFoundSignal NonIntegerIndexSignal NotFoundSignal
-		KeyNotFoundSignal ElementOutOfBoundsSignal UserNotificationSignal
-		InformationSignal WarningSignal PrimitiveFailureSignal
-		DeepCopyErrorSignal AbortSignal ErrorRecursion Dependencies
-		InfoPrinting ActivityNotificationSignal InternalErrorSignal
+		SubscriptOutOfBoundsSignal IndexNotFoundSignal
+		NonIntegerIndexSignal NotFoundSignal KeyNotFoundSignal
+		ElementOutOfBoundsSignal UserNotificationSignal InformationSignal
+		WarningSignal PrimitiveFailureSignal DeepCopyErrorSignal
+		AbortSignal ErrorRecursion Dependencies InfoPrinting
+		ActivityNotificationSignal InternalErrorSignal
 		NonWeakDependencies SynchronizationSemaphores ObjectAttributes
 		OSSignalInterruptSignal FinalizationLobby
 		RecursiveStoreStringSignal AbortAllSignal EnabledBreakPoints'
@@ -221,7 +221,8 @@
     "called only once - initialize signals"
 
     ErrorSignal isNil ifTrue:[
-        self initSignals
+        self initSignals.
+        ErrorRecursion := true.
     ].
 
     ObjectAttributes isNil ifTrue:[
@@ -9652,11 +9653,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.719 2013-05-07 13:21:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.720 2013-05-07 14:04:27 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.719 2013-05-07 13:21:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.720 2013-05-07 14:04:27 stefan Exp $'
 !
 
 version_SVN