--- a/PipeStream.st	Tue Feb 11 00:33:01 2003 +0100
+++ b/PipeStream.st	Wed Feb 12 17:53:43 2003 +0100
@@ -398,19 +398,17 @@
      This waits for the command to finish. 
      Use shutDown for a fast (nonBlocking) close."
 
-    |tpid|
+    filePointer notNil ifTrue:[
+        super closeFile.
+        OperatingSystem isMSDOSlike ifTrue:[
+            self terminatePipeCommand.
+        ].
 
-    filePointer notNil ifTrue:[
-	super closeFile.
-	OperatingSystem isMSDOSlike ifTrue:[
-	    self terminatePipeCommand.
-	].
-
-	filePointer := nil.
-	pid notNil ifTrue:[
-	    "/ wait for the pipe-command to terminate.
-	    self waitForPipeCommandWithTimeout:nil.
-	].
+        filePointer := nil.
+        pid notNil ifTrue:[
+            "/ wait for the pipe-command to terminate.
+            self waitForPipeCommandWithTimeout:nil.
+        ].
     ].
 
     "Modified: / 12.9.1998 / 16:51:04 / cg"
@@ -715,6 +713,7 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.92 2002-04-09 14:46:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.93 2003-02-12 16:53:43 stefan Exp $'
 ! !
+
 PipeStream initialize!