--- a/GenericException.st	Tue May 08 13:09:42 2018 +0200
+++ b/GenericException.st	Tue May 08 13:09:57 2018 +0200
@@ -1232,6 +1232,18 @@
     ^ self restartDo:alternativeBlock
 !
 
+signal
+    "raise a signal proceedable or nonproceedable (whichever is right).
+     ANSI compatibility."
+
+    ^ self raise
+
+    "
+     Error new signal
+     Error new raiseSignal
+    "
+!
+
 signalWith:messageTextArg
     "raise a signal proceedable or nonproceedable (whichever is right).
      The argument is used as messageText.
@@ -2378,7 +2390,6 @@
     <context: #return>
     <resource: #skipInDebuggersWalkBack>
 
-
     raiseContext := thisContext.
     (suspendedContext isNil or:[handlerContext notNil]) ifTrue:[
         suspendedContext := raiseContext sender