--- a/Signal.st	Wed Oct 25 19:28:20 2000 +0200
+++ b/Signal.st	Wed Oct 25 19:28:34 2000 +0200
@@ -500,6 +500,21 @@
     "Modified: / 12.3.1998 / 15:15:22 / stefan"
 !
 
+raiseErrorString:aString in:aContext
+    "raise a signal nonproceedable.
+     The argument is used as errorString."
+
+    <context: #return>
+
+    ^ self newException 
+        suspendedContext:aContext;
+        errorString:aString;
+        raise.
+
+    "Modified: / 9.5.1996 / 15:17:59 / cg"
+    "Modified: / 12.3.1998 / 15:15:22 / stefan"
+!
+
 raiseFrom:something
     "raise a signal nonproceedable.
      The argument, something is passed both as parameter and originator."
@@ -776,5 +791,5 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.78 2000-08-31 10:03:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.79 2000-10-25 17:28:34 cg Exp $'
 ! !