--- a/SignalSet.st	Wed Aug 04 17:39:19 1999 +0200
+++ b/SignalSet.st	Wed Aug 04 17:42:29 1999 +0200
@@ -110,6 +110,24 @@
     "Created: / 25.7.1999 / 23:46:48 / stefan"
 !
 
+handlerProtectedBlock:doBlock inContext:context
+    "set the handlerProtectedBlock in context"
+
+    context selector == #handle:do: ifTrue:[
+        context argAt:2 put:doBlock.
+    ] ifFalse:[context selector == #handle:from:do: ifTrue:[
+        context argAt:3 put:doBlock.
+    ]].
+
+    "
+      SignalSet anySignal
+          handle:[:ex| ex restartDo:[55]] do:[1 // 0]
+    "
+
+
+    "Created: / 25.7.1999 / 23:46:48 / stefan"
+!
+
 handlingExceptionInContext:theContext
     "answer the handling signalSet from aContext."
 
@@ -224,5 +242,5 @@
 !SignalSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.31 1999-08-03 12:51:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.32 1999-08-04 15:42:29 stefan Exp $'
 ! !