--- a/Signal.st	Fri Jul 26 16:33:23 1996 +0200
+++ b/Signal.st	Fri Jul 26 16:44:57 1996 +0200
@@ -410,6 +410,24 @@
     "Modified: 9.5.1996 / 15:17:59 / cg"
 !
 
+raiseErrorString:aString in:aContext
+    "raise a signal nonproceedable.
+     - notice, ST/X does not (for now) distinguish between proceedable and
+       non proceedable exceptions.
+     The argument is used as errorString.
+     The additional context is passed as the context responsible for the raise,
+     allowing a raise to mimicri the exception happened somewhere else."
+
+    ^ (Exception  
+              signal:self
+              parameter:nil 
+              errorString:(self errorStringFor:aString with:nil)
+              suspendedContext:aContext) raise.
+
+    "Created: 26.7.1996 / 16:42:32 / cg"
+    "Modified: 26.7.1996 / 16:42:47 / cg"
+!
+
 raiseFrom:something
     "raise a signal nonproceedable.
      - notice, ST/X does not (for now) distinguish between proceedable and
@@ -674,6 +692,6 @@
 !Signal  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.37 1996-07-26 14:30:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.38 1996-07-26 14:44:57 cg Exp $'
 ! !
 Signal initialize!