--- a/Signal.st	Wed Aug 04 17:46:48 1999 +0200
+++ b/Signal.st	Wed Aug 04 17:54:19 1999 +0200
@@ -412,6 +412,19 @@
     "Created: / 25.7.1999 / 19:55:43 / 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.
+    ]].
+
+
+
+!
+
 handlingExceptionInContext:theContext
     "answer the handling signal from aContext."
 
@@ -732,6 +745,7 @@
      If the signal is not raised, return the value of evaluating
      aBlock."
 
+    <context: #return>
     <exception: #handle>
 
     "/ thisContext markForHandle. -- same as above pragma
@@ -771,6 +785,7 @@
      If the signal is not raised, return the value of evaluating
      aBlock."
 
+    <context: #return>
     <exception: #handle>
 
     "/ thisContext markForHandle. -- same as above pragma
@@ -820,5 +835,5 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.66 1999-08-04 15:12:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.67 1999-08-04 15:54:19 stefan Exp $'
 ! !