diff --git a/sigma/sigma_lp.c b/sigma/sigma_lp.c
index 70261e4d..48794286 100644
--- a/sigma/sigma_lp.c
+++ b/sigma/sigma_lp.c
@@ -508,6 +508,7 @@ lp_cctl = ptr;
 lp_cctp = 0;
 for (rpt = 0; rpt < lp_cctl; rpt++)
     lp_cct[rpt] = cctbuf[rpt];
+fclose (cfile);
 return SCPE_OK;
 }