--- a/PipeStream.st	Tue Nov 17 11:03:04 2009 +0100
+++ b/PipeStream.st	Tue Nov 17 11:35:48 2009 +0100
@@ -725,6 +725,7 @@
 	    ].
 	] ifFalse:[
 	    self setFileDescriptor:myFd mode:rwMode.
+	    handleType := #pipeFilePointer.
 	]
     ] ifFalse:[
 	"creation of subprocesss failed"
@@ -795,7 +796,7 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.109 2009-10-28 20:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.110 2009-11-17 10:35:48 cg Exp $'
 ! !
 
 PipeStream initialize!