--- a/Process.st	Wed Oct 25 12:23:04 2000 +0200
+++ b/Process.st	Wed Oct 25 14:04:46 2000 +0200
@@ -1247,14 +1247,15 @@
 processGroupLeader
     "answer the parent of this process group"
 
-    |processes leader next|
+    |processes leader next creatorId|
 
     processes := ProcessorScheduler knownProcesses.
     leader := processes detect:[:p| p id = processGroupId] ifNone:nil.
     leader isNil ifTrue:[
+        leader := self.
         [
-            leader := self.
-            next := processes detect:[:p| p id = leader creatorId 
+            creatorId := leader creatorId.           
+            next := processes detect:[:p| p id = creatorId 
                                           and:[p processGroupId = processGroupId]] 
                               ifNone:nil.
         ] doWhile:[next notNil and:[leader := next. true]].
@@ -1879,6 +1880,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.117 2000-10-25 08:14:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.118 2000-10-25 12:04:46 stefan Exp $'
 ! !
 Process initialize!