--- a/Process.st	Tue Dec 07 15:14:56 1999 +0100
+++ b/Process.st	Thu Dec 09 10:58:35 1999 +0100
@@ -1472,15 +1472,18 @@
     |block|
 
     (block := startBlock) notNil ifTrue:[
-        "
-         just for your convenience ...
-        "
+        "/
+        "/ just for your convenience ...
+        "/
         name isNil ifTrue:[
             name := '(' , block displayString , ')'
         ].
         restartable ~~ true ifTrue:[startBlock := nil].
 
         [
+            "/
+            "/ handle Process-Termination, Process-Restart and Abort
+            "/
             CoughtSignals handle:[:ex |
                 ex signal == RestartSignal ifTrue:[
                      ex restart
@@ -1490,6 +1493,9 @@
                 exceptionHandlerSet isNil ifTrue:[
                     exceptionHandlerSet := ExceptionHandlerSet new.
                 ].
+                "/
+                "/ block is the one which received the fork some time ago...
+                "/
                 exceptionHandlerSet handleDo:block
             ]
         ] valueOnUnwindDo:[self terminateNoSignal].
@@ -1753,6 +1759,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.106 1999-10-08 09:04:09 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.107 1999-12-09 09:58:35 cg Exp $'
 ! !
 Process initialize!