--- a/FileStream.st	Fri Nov 03 13:34:46 1995 +0100
+++ b/FileStream.st	Sat Nov 04 15:39:39 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.26 1995-11-03 12:14:37 cg Exp $
+$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.27 1995-11-04 14:39:39 cg Exp $
 '!
 
 !FileStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.26 1995-11-03 12:14:37 cg Exp $
+$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.27 1995-11-04 14:39:39 cg Exp $
 "
 !
 
@@ -384,6 +384,7 @@
 
     path = _INST(pathName);
     if (__isNonNilObject(path) && (__qClass(path)==String)) {
+	__BEGIN_INTERRUPTABLE__
 	do {
 #ifdef LINUX
 	    /* LINUX returns a non-NULL f even when interrupted */
@@ -396,6 +397,7 @@
 	    f = (FILE *) fopen((char *) _stringVal(path), (char *) _stringVal(openmode));
 #endif
 	} while ((f == NULL) && (errno == EINTR));
+	__END_INTERRUPTABLE__
 	if (f == NULL) {
 	    _INST(lastErrorNumber) = _MKSMALLINT(errno);
 	    _INST(position) = nil;