From f67730df0fd1200dd2c529f472be4e99d0ed5d49 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 13 Feb 2018 18:14:48 +0000
Subject: [PATCH] more

---
 cpdfcommand.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 69e3bba..6eb2bb5 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -2335,7 +2335,7 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
               assert false
             with
               End_of_file ->
-                begin try close_out temp_file; Sys.remove temp with
+                begin try close_in temp_file; Sys.remove temp with
                   e -> Printf.eprintf "Failed to remove temp file %s (%s)\n" temp (Printexc.to_string e)
                 end;
                 flush stdout (*r For Windows *)