--- a/Signal.st	Mon Aug 02 10:54:17 1999 +0200
+++ b/Signal.st	Mon Aug 02 10:57:32 1999 +0200
@@ -823,11 +823,11 @@
       or AbortSignal, because continuing after an exception without any cleanup
       often leads to followup-errors."
 
-      ^ self handle:[:ex | ex proceed] do:aBlock.
+      ^ self handle:[:ex | ex proceedWith:nil] do:aBlock.
 
       "
        Object messageNotUnderstoodSignal ignoreIn:[
-	  123 size open   
+          123 size open   
        ]
       "
 ! !
@@ -835,6 +835,6 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.57 1999-07-31 13:54:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.58 1999-08-02 08:57:09 cg Exp $'
 ! !
 Signal initialize!

--- a/SignalSet.st	Mon Aug 02 10:54:17 1999 +0200
+++ b/SignalSet.st	Mon Aug 02 10:57:32 1999 +0200
@@ -205,7 +205,7 @@
       or AbortSignals, because continuing after an exception without any cleanup
       will often lead to followup-errors."
 
-      ^ self handle:[:ex | ex proceed] do:aBlock.
+      ^ self handle:[:ex | ex proceedWith:nil] do:aBlock.
 
       "
        SignalSet anySignal ignoreIn:[
@@ -220,5 +220,5 @@
 !SignalSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.28 1999-07-31 13:54:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.29 1999-08-02 08:57:32 cg Exp $'
 ! !