From 942a313099325bd54a4ee63aa5d054b95dcadb61 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 30 Oct 2014 17:17:50 +0000
Subject: [PATCH] More recrypting work

---
 cpdfcommand.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 286c589..e662599 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1943,7 +1943,11 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna
           if args.debugcrypt then Printf.printf "Recrypting in really_write_pdf\n";
           match args.inputs with
             [] -> raise (Pdf.PDFError "no input in recryption")
-          | (_, _, _, user_pw, _)::_ -> Pdfwrite.pdf_to_file_recrypting pdf user_pw outname'
+          | (_, _, _, user_pw, _)::_ ->
+              Pdfwrite.pdf_to_file_recrypting
+                ~preserve_objstm:args.preserve_objstm
+                ~generate_objstm:args.create_objstm
+                pdf user_pw outname'
         end
       else
         begin