--- a/GenericException.st	Tue May 29 14:58:41 2018 +0200
+++ b/GenericException.st	Wed Oct 17 21:45:02 2018 +0200
@@ -214,6 +214,20 @@
     "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."
+
+    <context: #return>
+
+    ^ (self newException
+                suspendedContext:thisContext sender
+                errorString:messageText)
+        raiseSignal.
+
+    "Modified: / 10-08-2010 / 09:41:56 / cg"
+!
+
 signalWith:messageText
     "raise a signal proceedable or nonproceedable (whichever is right).
      The argument is used as messageText.
@@ -2458,6 +2472,11 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !