diff --git a/cde/programs/dtcm/server/cmsfunc.c b/cde/programs/dtcm/server/cmsfunc.c
index fcccefd8c..79f02e555 100644
--- a/cde/programs/dtcm/server/cmsfunc.c
+++ b/cde/programs/dtcm/server/cmsfunc.c
@@ -1320,6 +1320,8 @@ _ListCalendarNames(uint *num_names, char ***names)
 		}
 	}
 
+	closedir(dirp);
+
 	if (num > 0) {
 		*num_names = num;
 		*names = names_r;