diff --git a/common/dotlock.c b/common/dotlock.c
index ae77fad8a..19611ab7a 100644
--- a/common/dotlock.c
+++ b/common/dotlock.c
@@ -724,6 +724,7 @@ dotlock_detect_tname (dotlock_t h)
 
       if (dlen > len)
         {
+          closedir (dir);
           xfree (basename);
           xfree (dirname);
           return -1;
@@ -734,6 +735,7 @@ dotlock_detect_tname (dotlock_t h)
       tname_path = strchr (h->tname + strlen (dirname) + 2, '.');
       if (!tname_path)
         {
+          closedir (dir);
           xfree (basename);
           xfree (dirname);
           return -1;