--- a/GenericException.st	Mon Jan 12 16:54:09 2015 +0100
+++ b/GenericException.st	Mon Jan 12 17:07:53 2015 +0100
@@ -214,6 +214,16 @@
     "Created: / 20-11-2006 / 14:00:09 / cg"
 !
 
+signal:messageText
+    "raise a signal proceedable or nonproceedable (whichever is right).
+     The argument is used as messageText.
+     ANSI/Dolphin compatibility."
+
+    <resource: #skipInDebuggersWalkBack>
+
+    self raiseErrorString:messageText
+!
+
 signalWith:messageText
     "raise a signal proceedable or nonproceedable (whichever is right).
      The argument is used as messageText.
@@ -224,7 +234,6 @@
     self raiseErrorString:messageText
 ! !
 
-
 !GenericException class methodsFor:'accessing'!
 
 errorString
@@ -2378,11 +2387,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.159 2014-12-30 12:40:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.160 2015-01-12 16:07:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.159 2014-12-30 12:40:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.160 2015-01-12 16:07:53 cg Exp $'
 ! !