From 39b691d19cd5bfd49fb4192930c09e081fc5b5ea Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 29 Jul 2015 18:04:45 +0100
Subject: [PATCH] Tidying

---
 cpdf.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cpdf.ml b/cpdf.ml
index 614a1fb..790ec4d 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -2687,7 +2687,8 @@ let copy_annotations_page topdf frompdf frompage topage =
       in
         List.iter
          (function
-            (* FIXME: We assume they are indirects. Must also do directs *)
+            (* 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))