--- a/PipeStr.st	Thu Aug 17 18:06:04 1995 +0200
+++ b/PipeStr.st	Fri Aug 18 00:39:38 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.29 1995-08-11 03:02:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.30 1995-08-17 22:39:38 claus Exp $
 '!
 
 !PipeStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.29 1995-08-11 03:02:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.30 1995-08-17 22:39:38 claus Exp $
 "
 !
 
@@ -315,6 +315,7 @@
 	    _INST(hitEOF) = true;
 	    RETURN (true);
 	}
+	clearerr(f);
 	RETURN ( false );
     }
 #endif
@@ -363,6 +364,7 @@
 	if (f == NULL) {
 	    _INST(lastErrorNumber) = _MKSMALLINT(errno);
 	} else {
+	    clearerr(f);
 	    _INST(filePointer) = MKOBJ(f);
 	    retVal = self;
 	}

--- a/PipeStream.st	Thu Aug 17 18:06:04 1995 +0200
+++ b/PipeStream.st	Fri Aug 18 00:39:38 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.29 1995-08-11 03:02:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.30 1995-08-17 22:39:38 claus Exp $
 '!
 
 !PipeStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.29 1995-08-11 03:02:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.30 1995-08-17 22:39:38 claus Exp $
 "
 !
 
@@ -315,6 +315,7 @@
 	    _INST(hitEOF) = true;
 	    RETURN (true);
 	}
+	clearerr(f);
 	RETURN ( false );
     }
 #endif
@@ -363,6 +364,7 @@
 	if (f == NULL) {
 	    _INST(lastErrorNumber) = _MKSMALLINT(errno);
 	} else {
+	    clearerr(f);
 	    _INST(filePointer) = MKOBJ(f);
 	    retVal = self;
 	}