--- a/Signal.st	Tue Feb 21 19:03:53 2006 +0100
+++ b/Signal.st	Tue Feb 21 19:04:03 2006 +0100
@@ -775,6 +775,19 @@
     "Created: / 23.7.1999 / 14:09:46 / stefan"
 !
 
+raiseWith:aParameter in:aContext
+    "raise a signal nonproceedable.
+     The argument, aParameter is passed as parameter.
+     The additional context is passed as the context responsible for the raise,
+     allowing a raise to mimicri the exception happened somewhere else."
+
+    <context: #return>
+
+    ^ (self newException
+        suspendedContext:aContext parameter:aParameter)
+        raise.
+!
+
 signalWith:messageText
     "ANSI compatibility"
 
@@ -943,5 +956,5 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.100 2006-01-30 17:30:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.101 2006-02-21 18:04:03 cg Exp $'
 ! !