diff --git a/cpdf.ml b/cpdf.ml
index 937bf12..51e1001 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -2385,7 +2385,7 @@ let equalize_pages under over =
       under, over
 
 let combine_pages (fast : bool) under over scaletofit swap equalize =
-  let debug_combine_pages = true in (* DEBUG *)
+  let debug_combine_pages = false in (* DEBUG *)
   let debug_pdf pdf n =
     if debug_combine_pages then
     begin
@@ -2879,8 +2879,7 @@ let copy_annotations_page topdf frompdf frompage topage =
       in
         List.iter
          (function
-            (* FIXME: We assume they are indirects. Must also do direct, though
-            rare.*)
+            (* FIXME: We assume they are indirects. Must also do direct, though rare.*)
             Pdf.Indirect x ->
               (*Printf.printf "Copying annotation %s which is\n%s\n"
                 (Pdfwrite.string_of_pdf (Pdf.Indirect x))
diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 6b26957..c67ce45 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -2642,7 +2642,7 @@ let rec image_resolution_page pdf page pagenum dpi (images : (int * string * xob
                              Pdfpage.rotate = Pdfpage.Rotate0;
                              Pdfpage.rest = Pdf.Dictionary []}
                           in
-                            let newpdf = Pdfpage.change_pages true pdf [page] in
+                            let newpdf = Pdfpage.change_pages false pdf [page] in
                               image_resolution newpdf [pagenum] dpi
                    | (pagenum, name, Image (w, h)) ->
                        let lx = Pdfunits.convert 0. Pdfunits.PdfPoint Pdfunits.Inch (distance_between o x)