--- a/GenericException.st	Tue Mar 08 11:58:56 2005 +0100
+++ b/GenericException.st	Tue Mar 08 13:14:40 2005 +0100
@@ -1862,6 +1862,19 @@
     "Modified: / 4.8.1999 / 08:05:12 / stefan"
 !
 
+raiseRequestWith:aParameter errorString:aString
+    "raise the signal proceedable.
+     The argument, aString is used as messageText,
+     aParameter is passed as exception parameter."
+
+    <context: #return>
+
+    ^ (self 
+        suspendedContext:thisContext sender parameter:aParameter errorString:aString)
+        raiseRequest.
+    "Created: / 23.7.1999 / 14:08:57 / stefan"
+!
+
 raiseSignal
     "actually raise an exception (whatever the proceedability is)."
 
@@ -1872,6 +1885,18 @@
     ].
     proceedable := self mayProceed.
     ^ self doRaise
+!
+
+raiseWith:aParameter errorString:aString
+    "raise the signal nonproceedable.
+     The argument, aString is used as messageText,
+     aParameter is passed as exception parameter."
+
+    <context: #return>
+
+    ^ (self 
+        suspendedContext:thisContext sender parameter:aParameter errorString:aString)
+        raise.
 ! !
 
 !GenericException methodsFor:'setup'!
@@ -1941,7 +1966,7 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.98 2005-02-03 09:04:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.99 2005-03-08 12:14:40 cg Exp $'
 ! !
 
 GenericException initialize!