--- a/ExtStream.st	Mon Jun 15 12:01:08 1998 +0200
+++ b/ExtStream.st	Mon Jun 15 15:31:02 1998 +0200
@@ -4117,6 +4117,10 @@
 	    __END_INTERRUPTABLE__
 	} while ((ret < 0) && (errno == EINTR));
 
+#if defined(WIN32) && defined(EPIPE)
+	if (errno == EPIPE)
+	    ret = 0;
+#endif
 	if (ret > 0) {
 	    __UNGETC__(c&0xff, f, _buffered);
 	    RETURN (false);
@@ -4655,6 +4659,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.169 1998-06-11 18:46:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.170 1998-06-15 13:31:02 cg Exp $'
 ! !
 ExternalStream initialize!

--- a/ExternalStream.st	Mon Jun 15 12:01:08 1998 +0200
+++ b/ExternalStream.st	Mon Jun 15 15:31:02 1998 +0200
@@ -4117,6 +4117,10 @@
 	    __END_INTERRUPTABLE__
 	} while ((ret < 0) && (errno == EINTR));
 
+#if defined(WIN32) && defined(EPIPE)
+	if (errno == EPIPE)
+	    ret = 0;
+#endif
 	if (ret > 0) {
 	    __UNGETC__(c&0xff, f, _buffered);
 	    RETURN (false);
@@ -4655,6 +4659,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.169 1998-06-11 18:46:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.170 1998-06-15 13:31:02 cg Exp $'
 ! !
 ExternalStream initialize!