--- a/GenericException.st	Mon May 13 15:41:06 2013 +0200
+++ b/GenericException.st	Mon May 13 15:47:00 2013 +0200
@@ -184,7 +184,7 @@
 new
     "{ Pragma: +inlineNew }"
 
-    ^ self basicNew setSignal:self.
+    ^ self basicNew creator:self.
 
     "Modified: / 23.7.1999 / 13:53:12 / stefan"
     "Created: / 24.7.1999 / 13:21:13 / stefan"
@@ -193,7 +193,7 @@
 newException
     "{ Pragma: +inlineNew }"
 
-    ^ self basicNew setSignal:self.
+    ^ self basicNew creator:self.
 
     "Created: / 23.7.1999 / 13:45:49 / stefan"
     "Modified: / 24.7.1999 / 13:21:25 / stefan"
@@ -221,6 +221,7 @@
     self raiseErrorString:messageText
 ! !
 
+
 !GenericException class methodsFor:'accessing'!
 
 errorString
@@ -1392,7 +1393,9 @@
      Warning and notice: in ANSI, signal means: raise;
      here and in old VW, it is the accessor to create.
      This will change in the near future; please use #creator to get
-     the creator."
+     the creator. Marked as obsolete, until the change is done!!"
+
+    self obsoleteMethodWarning:'meaning of #signal will change. Use #creator'.
 
     ^ signal ? self class
 
@@ -2253,10 +2256,9 @@
 
 !GenericException methodsFor:'setup'!
 
-setSignal:aSignal
+creator:aSignal
     "set the fields usable for inspection by the handler
-     - only to be sent from the signal when raising.
-     CG: added this one to avoid confusion with dolphin signal: (which raises the ex)"
+     - only to be sent from the signal when raising."
 
     signal := aSignal.
 !
@@ -2318,11 +2320,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.137 2013-04-19 09:41:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.138 2013-05-13 13:47:00 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.137 2013-04-19 09:41:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.138 2013-05-13 13:47:00 stefan Exp $'
 ! !