--- a/GenericException.st	Tue Oct 29 16:47:48 2019 +0100
+++ b/GenericException.st	Tue Oct 29 23:05:59 2019 +0100
@@ -16,11 +16,11 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#GenericException
-        instanceVariableNames:'signal parameter messageText suspendedContext raiseContext
-                handlerContext rejected originator proceedable'
-        classVariableNames:'StrictRaising'
-        poolDictionaries:''
-        category:'Kernel-Exceptions'
+	instanceVariableNames:'signal parameter messageText suspendedContext raiseContext
+		handlerContext rejected originator proceedable'
+	classVariableNames:'StrictRaising'
+	poolDictionaries:''
+	category:'Kernel-Exceptions'
 !
 
 GenericException class instanceVariableNames:'NotifierString'
@@ -2418,6 +2418,14 @@
     "Created: / 10-08-2010 / 09:36:45 / cg"
 !
 
+raiseRequestWith:aParameter
+    "actually raise a proceedable exception."
+
+    <context: #return>
+
+    self raiseRequestWith:aParameter in:thisContext sender.
+!
+
 raiseRequestWith:aParameter errorString:aString
     "raise the signal proceedable.
      The argument, aString is used as messageText,