1 files changed, 1 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index c24af0cf9cd..b8b9189719b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1634,6 +1634,7 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
                           save_mtime = mtime;
                           save_string = string;
                         }
+                      else emacs_close (fd);
                     }
                   else
                     {