From 2c6c357bdc97703857b6518c0f716f08b520cbbd Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 2 Nov 2021 16:10:30 +0000
Subject: [PATCH] more

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

diff --git a/cpdf.ml b/cpdf.ml
index c101fe2..aedfac4 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -1551,7 +1551,7 @@ let
         make_font embed (Pdftext.string_of_standard_font f)
     | None -> 
         let firstpage =
-          List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages + 1)
+          List.nth (Pdfpage.pages_of_pagetree pdf) (hd pages - 1)
         in
         match Pdf.lookup_direct pdf "/Font" firstpage.Pdfpage.resources with
         | Some fontdict ->