--- a/PipeStream.st	Sat Jan 22 23:35:04 2000 +0100
+++ b/PipeStream.st	Mon Jan 24 16:03:54 2000 +0100
@@ -431,6 +431,9 @@
     if ((fp = __INST(filePointer)) != nil) {
 	__INST(filePointer) = nil;
 	f = __FILEVal(fp);
+	if (@global(ExternalStream:FileOpenTrace) == true) {
+	    fprintf(stderr, "close [PipeStream] %x fd=%d\n", f, fileno(f));
+	}
 #ifdef WIN32
 	__STX_C_CALL1((void*)close, (void*)fileno(f));
 #else
@@ -697,6 +700,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.80 1999-08-20 09:15:28 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.81 2000-01-24 15:03:53 cg Exp $'
 ! !
 PipeStream initialize!