--- a/GenericException.st	Fri Nov 21 15:41:28 2014 +0100
+++ b/GenericException.st	Fri Nov 21 15:51:11 2014 +0100
@@ -2130,6 +2130,26 @@
     "Created: / 10-08-2010 / 09:30:19 / cg"
 !
 
+raiseRequest
+    "actually raise a proceedable exception."
+
+    <context: #return>
+
+    raiseContext := thisContext.
+    (suspendedContext isNil or:[handlerContext notNil]) ifTrue:[
+        handlerContext := nil.
+        suspendedContext := raiseContext sender
+    ].
+
+    self checkProceedable.
+
+    proceedable := true.
+    ^ self doRaise
+
+    "Modified: / 04-08-1999 / 08:05:12 / stefan"
+    "Modified: / 10-08-2010 / 09:55:00 / cg"
+!
+
 raiseRequestErrorString:errorString in:aContext
     "actually raise a proceedable exception."
 
@@ -2354,11 +2374,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.157 2014-11-21 14:41:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.158 2014-11-21 14:51:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.157 2014-11-21 14:41:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.158 2014-11-21 14:51:11 cg Exp $'
 ! !