--- a/UnixOperatingSystem.st	Fri Jun 19 04:29:53 1998 +0200
+++ b/UnixOperatingSystem.st	Sat Jun 20 10:28:27 1998 +0200
@@ -2959,7 +2959,7 @@
     "Modified: / 5.6.1998 / 17:40:48 / cg"
 !
 
-exec:aCommandPath withArguments:argArray environment:env fileDescriptors:fdArray closeDescriptors:closeFdArray fork:doFork newPgrp:newPgrp
+exec:aCommandPath withArguments:argColl environment:env fileDescriptors:fdColl closeDescriptors:closeFdColl fork:doFork newPgrp:newPgrp
     "Internal lowLevel entry for combined fork & exec;
 
      If fork is false (chain a command):
@@ -2999,7 +2999,7 @@
             accesses to ST/X memory from the vforked-child.
             The code below only does read accesses."
 
-    |envPairs|
+    |envPairs argArray fdArray closeFdArray|
 
     env notNil ifTrue:[
         envPairs := OrderedCollection new.
@@ -3008,6 +3008,15 @@
         ].
         envPairs := envPairs asArray.
     ].
+    argColl notNil ifTrue:[
+	argArray := argColl asArray
+    ].
+    fdColl notNil ifTrue:[
+	fdArray := fdColl asArray
+    ].
+    closeFdColl notNil ifTrue:[
+	closeFdArray := closeFdColl asArray
+    ].
 
 %{  /* STACK: 16000 */
     char **argv;
@@ -8481,6 +8490,6 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.27 1998-06-17 07:32:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.28 1998-06-20 08:28:27 cg Exp $'
 ! !
 UnixOperatingSystem initialize!