--- a/UnixPTYStream.st	Tue Feb 25 14:23:35 2003 +0100
+++ b/UnixPTYStream.st	Thu Feb 27 15:50:38 2003 +0100
@@ -185,7 +185,7 @@
     "open a pty to the unix command in commandString"
 
     |blocked ptyFdArray execFdArray slaveFd masterFd shellAndArgs
-     shellPath shellArgs closeFdArray mbx mbxName
+     shellPath shellArgs mbx mbxName
      env shell args|
 
     filePointer notNil ifTrue:[
@@ -211,7 +211,6 @@
         shellArgs := aCommandString.
 
         execFdArray := Array with:mbx with:mbx with:mbx.
-        closeFdArray := nil.
     ] ifFalse:[
         ptyFdArray := OperatingSystem makePTYPair.
         ptyFdArray isNil ifTrue:[
@@ -226,7 +225,6 @@
         masterFd := ptyFdArray at:1.
         slaveFd := ptyFdArray at:2.
         execFdArray := Array with:slaveFd with:slaveFd with:slaveFd.
-        closeFdArray := Array with:masterFd.
     ].
 
     env := Dictionary new.
@@ -245,7 +243,6 @@
                       withArguments:shellArgs
                       environment:env
                       fileDescriptors:execFdArray
-                      closeDescriptors:closeFdArray
                       fork:true
                       newPgrp:true
 "/                      inDirectory:aDirectrory.
@@ -342,5 +339,5 @@
 !UnixPTYStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnixPTYStream.st,v 1.5 1998-08-27 14:29:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnixPTYStream.st,v 1.6 2003-02-27 14:50:38 stefan Exp $'
 ! !