--- a/Exception.st	Fri Jul 23 19:53:36 1999 +0200
+++ b/Exception.st	Fri Jul 23 20:13:00 1999 +0200
@@ -761,6 +761,28 @@
     "Created: / 23.7.1999 / 14:06:40 / stefan"
 ! !
 
+!Exception class methodsFor:'compatibility - signal creation'!
+
+newSignal
+    "create a new signal, using the receiver as a prototype and
+     setting the parent of the new signal to the receiver."
+
+    ^ self newSignalMayProceed:self mayProceed
+
+    "Created: / 23.7.1999 / 20:13:23 / stefan"
+!
+
+newSignalMayProceed:proceed
+    "create a new signal, using the receiver as a prototype and
+     setting the parent of the new signal to the receiver."
+
+    ^ (Signal basicNew) mayProceed:proceed;
+                    notifierString:NotifierString;
+                            parent:self
+
+    "Created: / 23.7.1999 / 20:12:43 / stefan"
+! !
+
 !Exception class methodsFor:'defaults'!
 
 emergencyHandler
@@ -1629,6 +1651,6 @@
 !Exception class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.68 1999-07-23 15:46:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.69 1999-07-23 18:13:00 stefan Exp $'
 ! !
 Exception initialize!