--- a/ExternalStream.st	Mon May 26 20:32:32 2014 +0200
+++ b/ExternalStream.st	Tue May 27 07:31:58 2014 +0200
@@ -545,9 +545,12 @@
                     }                                \
                 } else {                             \
                     READ((ret), f, __buf, l, handleType); \
+                }                                     \
+                if ((ret) <= 0) {                     \
+                    if (ret < 0 && __threadErrno == EINTR) \
+                        continue;                       \
+                    break;                              \
                 }                                       \
-                if ((ret) < 0 && __threadErrno == EINTR) \
-                    continue;                           \
             }                                           \
             if ((ret) > 0) {                            \
                 buf = (char *)(obj);                    \
@@ -5887,11 +5890,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.389 2014-05-26 18:25:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.390 2014-05-27 05:31:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.389 2014-05-26 18:25:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.390 2014-05-27 05:31:58 stefan Exp $'
 ! !