--- a/Signal.st	Thu Nov 09 11:47:07 2000 +0100
+++ b/Signal.st	Thu Nov 09 12:13:29 2000 +0100
@@ -192,7 +192,24 @@
 !
 
 raiseSignal
-    ^ self raise
+    "actually raise an exception (whatever the proceedability is)."
+
+    ^ self raiseSignal:(self description) with:nil
+!
+
+raiseSignal:errorMessage
+    "actually raise an exception (whatever the proceedability is)."
+
+    ^ self raiseSignal:errorMessage with:nil
+!
+
+raiseSignal:errorMessage with:aParameter
+    "actually raise an exception (whatever the proceedability is)."
+
+    self mayProceed ifFalse:[
+        ^ self raiseWith:aParameter errorString:errorMessage
+    ].
+    ^ self raiseRequestWith:aParameter errorString:errorMessage
 ! !
 
 !Signal methodsFor:'accessing'!
@@ -791,5 +808,5 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.79 2000-10-25 17:28:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.80 2000-11-09 11:13:29 cg Exp $'
 ! !