--- a/AbstractOperatingSystem.st	Wed Jul 26 23:13:34 2000 +0200
+++ b/AbstractOperatingSystem.st	Wed Jul 26 23:22:41 2000 +0200
@@ -1250,7 +1250,8 @@
         [
             sema wait.
         ] valueOnUnwindDo:[
-            "/ terminate the os-command
+            "/ terminate the os-command (and all of its forked commands)
+            self terminateProcessGroup:pid.
             self terminateProcess:pid.
             self closePid:pid.
         ]
@@ -4238,6 +4239,6 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.43 2000-07-25 14:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.44 2000-07-26 21:22:41 cg Exp $'
 ! !
 AbstractOperatingSystem initialize!