--- a/Process.st	Sat May 06 06:26:35 1995 +0200
+++ b/Process.st	Mon May 08 05:31:14 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Process.st,v 1.25 1995-05-04 12:48:11 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Process.st,v 1.26 1995-05-08 03:30:40 claus Exp $
 '!
 
 !Process class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Process.st,v 1.25 1995-05-04 12:48:11 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Process.st,v 1.26 1995-05-08 03:30:40 claus Exp $
 "
 !
 
@@ -232,10 +232,11 @@
     "setup the new process - the receiver is not scheduled for
      execution, to get it running, send it #resume"
 
-    |nm|
+    |nm active|
 
     prio := aPrio.
     startBlock := aBlock.
+    restartable := false.
 
     (Processor newProcessFor:self) ifFalse:[ 
 	"for some reason, the Processor was unable to create
@@ -246,12 +247,13 @@
     "
      give me a user-friendly name
     "
-    (nm := Processor activeProcess name) notNil ifTrue:[
+    active := Processor activeProcess.
+    (nm :=  active name) notNil ifTrue:[
 	"
 	 avoid name inflation
 	"
 	(nm endsWith:' sub') ifFalse:[
-	    nm := nm , ' [' , Processor activeProcess id printString , '] sub'
+	    nm := nm , ' [' ,  active id printString , '] sub'
 	].
 	name := nm
     ]
@@ -552,8 +554,9 @@
     "restart the process from the beginning.
      This is sent by the ProcessorScheduler to all restartable processes."
 
-('restart process ' , id printString) errorPrintNL.
-    (Processor newProcessFor:self) ifFalse:[ 
+"/  ('restart process ' , id printString) errorPrintNL.
+
+    (Processor newProcessFor:self withId:id) ifFalse:[ 
 	"for some reason, the Processor was unable to create
 	 a VM process for me ...."