--- a/Signal.st	Fri Apr 19 09:38:48 2013 +0200
+++ b/Signal.st	Tue Apr 23 14:27:19 2013 +0100
@@ -169,6 +169,14 @@
     "Modified: / 4.8.1999 / 08:10:09 / stefan"
 ! !
 
+!Signal methodsFor:'Compatibility-ANSI'!
+
+signalWith:messageText
+    "ANSI compatibility"
+
+    self raiseErrorString:messageText
+! !
+
 !Signal methodsFor:'Compatibility-VW'!
 
 messageText:aString
@@ -447,7 +455,7 @@
 
     |signal|
 
-    signal := anException signal.
+    signal := anException creator.
 
     self == signal ifTrue:[^ true].               "quick check"
     anException isNotification ifTrue:[^ false].  "speed up queries by not traversing the parent chain"
@@ -793,12 +801,6 @@
         raiseWith:aParameter in:aContext
 
     "Modified: / 10-08-2010 / 10:03:05 / cg"
-!
-
-signalWith:messageText
-    "ANSI compatibility"
-
-    self raiseErrorString:messageText
 ! !
 
 !Signal methodsFor:'save evaluation'!
@@ -978,10 +980,10 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.110 2013-03-26 14:20:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.111 2013-04-19 08:41:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.110 2013-03-26 14:20:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.111 2013-04-19 08:41:12 cg Exp $'
 ! !