diff --git a/testpdfio.c b/testpdfio.c
index d5b633a..4b5c82e 100644
--- a/testpdfio.c
+++ b/testpdfio.c
@@ -1521,6 +1521,8 @@ write_text(pdfio_file_t *pdf,		// I - PDF file
       return (1);
   }
 
+  fclose(fp);
+
   return (0);
 
   error: