--- a/PipeStream.st	Thu Apr 06 12:54:06 2006 +0200
+++ b/PipeStream.st	Thu Apr 06 12:55:32 2006 +0200
@@ -230,6 +230,16 @@
         Transcript showCR:p nextLine.
         p close
     "
+
+    "
+        |p|
+
+        p := PipeStream bidirectionalFor:'wc'.
+        p nextPutAll:'Hello world'; cr.
+        p shutDownOutput.
+        Transcript showCR:p nextLine.
+        p close
+    "
 !
 
 bidirectionalFor:commandString errorDisposition:errorDisposition inDirectory:aDirectory
@@ -779,7 +789,7 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.103 2006-02-23 19:34:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.104 2006-04-06 10:55:32 stefan Exp $'
 ! !
 
 PipeStream initialize!