--- a/ExternalStream.st	Tue Feb 09 14:57:43 2010 +0100
+++ b/ExternalStream.st	Tue Feb 09 15:23:16 2010 +0100
@@ -4238,9 +4238,7 @@
 
 clearEOF
     hitEOF := false
-! !
-
-!ExternalStream protectedMethodsFor:'private'!
+!
 
 closeFile
     "low level close - may be redefined in subclasses
@@ -4272,7 +4270,7 @@
             }
             do {
                 __threadErrno = 0;
-                rslt = __STX_C_CALL1("fclose", fclose, f);
+                rslt = __STX_C_NOINT_CALL1("fclose", fclose, f);
             } while((rslt < 0) && (__threadErrno == EINTR));
 #else
             __BEGIN_INTERRUPTABLE__
@@ -4302,9 +4300,7 @@
         handle := nil.
         self closeFile:fp
     ]
-! !
-
-!ExternalStream methodsFor:'private'!
+!
 
 closeFile:handle
     "for rel5 only"
@@ -5695,11 +5691,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.339 2010-02-09 13:42:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.340 2010-02-09 14:23:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.339 2010-02-09 13:42:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.340 2010-02-09 14:23:16 stefan Exp $'
 ! !
 
 ExternalStream initialize!