--- a/GenericException.st	Fri Aug 23 21:49:35 2019 +0200
+++ b/GenericException.st	Fri Aug 23 21:49:59 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2427,6 +2425,22 @@
     "Modified: / 19-04-2013 / 09:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+raiseSignalIn:aContext
+    "actually raise an exception (whatever the proceedability is)."
+
+    <context: #return>
+    <resource: #skipInDebuggersWalkBack>
+
+    raiseContext := aContext.
+    (suspendedContext isNil or:[handlerContext notNil]) ifTrue:[
+        suspendedContext := raiseContext sender
+    ].
+    proceedable := self mayProceed.
+    ^ self doRaise
+
+    "Modified: / 19-04-2013 / 09:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 raiseWith:aParameter errorString:aString
     "raise the signal nonproceedable.
      The argument, aString is used as messageText,