--- a/Process.st	Mon Sep 30 10:34:16 2002 +0200
+++ b/Process.st	Mon Sep 30 17:20:18 2002 +0200
@@ -1752,9 +1752,14 @@
 !
 
 terminateAllSubprocesses
-    "terminate all the receivers subprocesses and their children as well
-     (i.e. all processes in the receivers process group, except for
-      the receiver itself)."
+    self obsoleteMethodWarning:'renamed to terminateAllSubprocessesInGroup'.
+!
+
+terminateAllSubprocessesInGroup
+    "terminate all subprocesses which have the receiver process as groupID,
+     and their group-children as well.
+     (i.e. all processes in the receivers process group, except for the receiver itself,
+      and recursively oll of their group processes.)."
 
     id isNil ifTrue:[
         "/ problem:
@@ -1769,9 +1774,8 @@
     ].
     ProcessorScheduler knownProcesses do:[:aProcess |
         aProcess ~~ self ifTrue:[
-            ("aProcess processGroupId == processGroupId 
-            or:["aProcess processGroupId == id"]") ifTrue:[
-                aProcess terminateWithAllSubprocesses
+            (aProcess processGroupId == id) ifTrue:[
+                aProcess terminateWithAllSubprocessesInGroup
             ]
         ]
     ].
@@ -1864,8 +1868,7 @@
 !
 
 terminateWithAllGUISubprocesses
-    "terminate the receiver with all of its created gui subprocesses and their gui children
-     (i.e. all processes in the receivers process group)."
+    "terminate the receiver with all of its created gui subprocesses and their gui children."
 
     self terminateAllGUISubprocesses.
     self terminate
@@ -1875,10 +1878,17 @@
 !
 
 terminateWithAllSubprocesses
-    "terminate the receiver with all of its created subprocesses and their children
-     (i.e. all processes in the receivers process group)."
+    self obsoleteMethodWarning:'renamed to terminateWithAllSubprocessesInGroup'.
+!
 
-    self terminateAllSubprocesses.
+terminateWithAllSubprocessesInGroup
+    "terminate the receiver with
+     all subprocesses which have the receivers process ID as groupID,
+     and their group-children as well.
+     (i.e. the receiver plus all processes in the receivers process group, 
+      and recursively all of their group processes)."
+
+    self terminateAllSubprocessesInGroup.
     self terminate
 
     "Modified: 28.10.1996 / 20:42:00 / cg"
@@ -1924,7 +1934,7 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.131 2002-09-26 18:53:12 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.132 2002-09-30 15:20:18 cg Exp $'
 ! !
 
 Process initialize!