--- a/ExternalStream.st	Thu Sep 21 12:18:38 2000 +0200
+++ b/ExternalStream.st	Thu Sep 21 18:32:16 2000 +0200
@@ -2277,13 +2277,23 @@
 	if (@global(ExternalStream:FileOpenTrace) == true) {
 	    fprintf(stderr, "fclose [ExternalStream] %x\n", f);
 	}
+#ifdef WIN32
 	__BEGIN_INTERRUPTABLE__
-#ifdef WIN32
 	__STX_C_CALL1((void*)fclose, (void*)f);
+	__END_INTERRUPTABLE__
 #else
+# ifdef PRE_19_SEP_2000
+	__BEGIN_INTERRUPTABLE__
 	fclose(f);
+	__END_INTERRUPTABLE__
+# else
+	__BEGIN_INTERRUPTABLE__
+	FFLUSH(f);
+	close ( fileno(f) );
+	__END_INTERRUPTABLE__
+	fclose(f);
+# endif
 #endif
-	__END_INTERRUPTABLE__
     }
     RETURN (self);
 %}.
@@ -2300,13 +2310,6 @@
     "for rel5 only"
 
     self primitiveFailed
-
-
-
-
-
-
-
 !
 
 disposed
@@ -5673,6 +5676,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.222 2000-09-21 09:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.223 2000-09-21 16:32:16 cg Exp $'
 ! !
 ExternalStream initialize!