--- a/Process.st	Mon Jun 17 14:41:46 1996 +0200
+++ b/Process.st	Mon Jun 17 14:44:38 1996 +0200
@@ -879,22 +879,27 @@
     |block|
 
     (block := startBlock) notNil ifTrue:[
-	"
-	 just for your convenience ...
-	"
-	name isNil ifTrue:[
-	    name := '(' , block displayString , ')'
-	].
-	restartable ~~ true ifTrue:[startBlock := nil].
-	CoughtSignals handle:[:ex |
-	    ex return
-	] do:block.
+        "
+         just for your convenience ...
+        "
+        name isNil ifTrue:[
+            name := '(' , block displayString , ')'
+        ].
+        restartable ~~ true ifTrue:[startBlock := nil].
+        CoughtSignals handle:[:ex |
+            ex return
+        ] do:[
+"/            block
+            block valueOnUnwindDo:[self terminateNoSignal]
+        ].
 
-	self terminateNoSignal.
+        self terminateNoSignal.
     ] ifFalse:[
-	"is this artificial restriction useful ?"
-	self error:'a process cannot be started twice'
+        "is this artificial restriction useful ?"
+        self error:'a process cannot be started twice'
     ]
+
+    "Modified: 17.6.1996 / 14:44:22 / cg"
 ! !
 
 !Process methodsFor:'suspend / resume'!
@@ -1007,6 +1012,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.54 1996-06-17 12:41:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.55 1996-06-17 12:44:38 cg Exp $'
 ! !
 Process initialize!