--- a/DirectoryStream.st	Sun Oct 27 09:26:53 2019 +0100
+++ b/DirectoryStream.st	Mon Oct 28 01:18:16 2019 +0100
@@ -569,7 +569,14 @@
     dirPointer := nil.
 %{
 #ifdef HAS_OPENDIR
-    closedir( (DIR *)(__FILEVal(dp)) );
+    {
+	int ret;
+
+        do {
+	    errno = 0;
+            closedir( (DIR *)(__FILEVal(dp)) );
+        } while ((ret < 0) && (errno == EINTR));
+    }
 #else
 # ifdef __win32__
     FindClose( __HANDLEVal(dp) );