--- a/GenericException.st	Wed Oct 25 12:21:57 2000 +0200
+++ b/GenericException.st	Wed Oct 25 12:23:04 2000 +0200
@@ -153,6 +153,7 @@
         originator:origin.
 ! !
 
+
 !GenericException class methodsFor:'Compatibility - ANSI'!
 
 signalWith:errorString
@@ -1094,6 +1095,12 @@
     "Modified: 15.1.1997 / 20:15:12 / cg"
 ! !
 
+
+!GenericException methodsFor:'Compatibility - ANSI'!
+
+signalWith:errorString
+    ^ self raiseErrorString:errorString! !
+
 !GenericException methodsFor:'accessing'!
 
 creator
@@ -1840,7 +1847,15 @@
 
     "Modified: / 12.5.1996 / 15:09:44 / cg"
     "Modified: / 4.8.1999 / 08:05:12 / stefan"
-! !
+!
+
+raiseSignal
+    "actually raise an exception (whatever the proceedability is)."
+
+    self mayProceed ifFalse:[
+        ^ self raise
+    ].
+    ^ self raiseRequest! !
 
 !GenericException methodsFor:'setup'!
 
@@ -1868,6 +1883,6 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.38 2000-09-05 11:21:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.39 2000-10-25 10:23:04 cg Exp $'
 ! !
 GenericException initialize!