diff --git a/cde/programs/dtcm/libDtCmP/cm_tty.c b/cde/programs/dtcm/libDtCmP/cm_tty.c
index 77590ed36..588f4e5a8 100644
--- a/cde/programs/dtcm/libDtCmP/cm_tty.c
+++ b/cde/programs/dtcm/libDtCmP/cm_tty.c
@@ -2096,8 +2096,10 @@ appointments_to_file(CSA_session_handle target, CSA_entry_handle *appointment_li
 	if (f_ptr == NULL)
 		return(B_FALSE);
 
-	if (num_appts == 0)
+	if (num_appts == 0) {
+		fclose(f_ptr);
 		return(B_FALSE);
+	}
 
 	fprintf(f_ptr, "DTCM Archive 1.0\n");
 	for (i = 0; i < num_appts; i++) {