--- a/FileStream.st	Tue Dec 18 21:36:22 2001 +0100
+++ b/FileStream.st	Tue Dec 18 21:49:04 2001 +0100
@@ -1019,7 +1019,11 @@
 # ifdef WIN32
 
 	do {
+	    __threadErrno = 0;
 	    f = STX_C_CALL2( "fopen", fopen, (char *)__stringVal(pathName), (char *)__stringVal(openmode));
+	    if (__threadErrno == EINTR) {
+		f = NULL;
+	    }
 	} while ((f == NULL) && (__threadErrno == EINTR));
 
 # else /* not WIN32 */
@@ -1312,6 +1316,6 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.80 2001-12-18 10:33:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.81 2001-12-18 20:49:04 cg Exp $'
 ! !
 FileStream initialize!