--- a/PipeStream.st	Mon Apr 08 12:22:13 2002 +0200
+++ b/PipeStream.st	Tue Apr 09 16:46:54 2002 +0200
@@ -432,28 +432,28 @@
     int retVal;
 
     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));
-	}
+        __INST(filePointer) = nil;
+        f = __FILEVal(fp);
+        if (@global(FileOpenTrace) == true) {
+            fprintf(stderr, "close [PipeStream] %x fd=%d\n", f, fileno(f));
+        }
 #ifdef WIN32
-	do {
-	    __threadErrno = 0;
-	    retVal = __STX_C_CALL1( "close", (void*)close, (void*)fileno(f) );
-	} while ((retVal < 0) && (__threadErrno == EINTR));
+        do {
+            __threadErrno = 0;
+            retVal = __STX_C_CALL1( "close", (void*)close, (void*)fileno(f) );
+        } while ((retVal < 0) && (__threadErrno == EINTR));
 #else
-	__BEGIN_INTERRUPTABLE__
-	close(fileno(f));
-	__END_INTERRUPTABLE__
+        __BEGIN_INTERRUPTABLE__
+        close(fileno(f));
+        __END_INTERRUPTABLE__
 #endif
     }
 #endif /* not transputer  */
 %}.
     exitAction notNil ifTrue:[
-	action := exitAction.
-	exitAction := nil.
-	action value.
+        action := exitAction.
+        exitAction := nil.
+        action value.
     ]
 !
 
@@ -715,6 +715,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.91 2002-03-04 14:20:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.92 2002-04-09 14:46:11 stefan Exp $'
 ! !
 PipeStream initialize!