--- a/Object.st	Sat Apr 27 14:58:11 2013 +0200
+++ b/Object.st	Sat Apr 27 15:07:08 2013 +0200
@@ -172,44 +172,29 @@
 initSignals
     "called only once - initialize signals"
 
+    "/ notice: the class variables here are a leftover from times
+    "/ when errors where signal-instance, not class based.
+    "/ then, signal instances where created here and kept as class vars,
+    "/ to be fetched from the class var or via signal-getter methods.
+    "/ Nowadays, we use class based exceptions, where the exception class   
+    "/ is directly referenced.
+    "/ the classvars here are kept for backward compatibility, but they now
+    "/ simply alias the corresponding exception class.
+    "/ Old code should be rewritten to access the error class.
+
     ErrorSignal := Error.
-
-    ControlInterrupt notifierString:'control interrupted'.
-
     HaltSignal := HaltInterrupt.
-    HaltSignal notifierString:'halt encountered'.
-
     MessageNotUnderstoodSignal := MessageNotUnderstood.
-    MessageNotUnderstoodSignal notifierString:'message not understood'.
-
     PrimitiveFailureSignal := PrimitiveFailure.
-    PrimitiveFailureSignal notifierString:'primitive failed'.
-
     InternalErrorSignal := VMInternalError.
-
     UserInterruptSignal := UserInterrupt.
-    UserInterruptSignal notifierString:'user Interrupt'.
-
     RecursionInterruptSignal := RecursionError.
-    RecursionInterruptSignal notifierString:'recursion limit reached'.
-
     NotFoundSignal := NotFoundError.
-    NotFoundSignal notifierString:'no such element'.
-
     IndexNotFoundSignal := IndexNotFoundError.
-    IndexNotFoundSignal notifierString:'bad index: '.
-
     SubscriptOutOfBoundsSignal := SubscriptOutOfBoundsError.
-    SubscriptOutOfBoundsSignal notifierString:'subscript out of bounds: '.
-
     NonIntegerIndexSignal := NonIntegerIndexError.
-    NonIntegerIndexSignal notifierString:'index must be integer'.
-
     KeyNotFoundSignal := KeyNotFoundError.
-    KeyNotFoundSignal notifierString:'no such key: '.
-
     ElementOutOfBoundsSignal := ElementBoundsError.
-
     UserNotificationSignal := UserNotification.
     WarningSignal := Warning.
     InformationSignal := UserInformation.
@@ -377,7 +362,7 @@
 messageNotUnderstoodSignal
     "return the signal used for doesNotUnderstand: - error handling"
 
-    ^ MessageNotUnderstoodSignal
+    ^ MessageNotUnderstood
 !
 
 nonIntegerIndexSignal
@@ -504,6 +489,7 @@
     InfoPrinting := aBoolean
 ! !
 
+
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -526,6 +512,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -681,6 +669,7 @@
     "
 ! !
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1659,6 +1648,7 @@
     "Modified: 6.7.1996 / 23:03:41 / cg"
 ! !
 
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1782,6 +1772,7 @@
 ! !
 
 
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -1971,6 +1962,7 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'comparing'!
 
 = anObject
@@ -7435,6 +7427,7 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'secure message sending'!
 
 ?: selector
@@ -8037,6 +8030,7 @@
     "
 ! !
 
+
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -9656,11 +9650,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.717 2013-04-22 14:03:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.718 2013-04-27 13:07:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.717 2013-04-22 14:03:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.718 2013-04-27 13:07:08 cg Exp $'
 !
 
 version_SVN