From 1585e4fe4e030da0cc9cd25485f7b2ee07bb126c Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 16 Mar 2023 12:51:54 +0000
Subject: [PATCH] more

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

diff --git a/cpdfpagespec.ml b/cpdfpagespec.ml
index c7e4ed8..b967f42 100644
--- a/cpdfpagespec.ml
+++ b/cpdfpagespec.ml
@@ -100,7 +100,7 @@ let resolve_pagelabels pdf spec =
   let labels =
     let labs = Pdfpagelabels.read pdf in
       map
-        (fun pnum -> (Pdfpagelabels.pagelabeltext_of_pagenumber pnum labs, pnum))
+        (fun pnum -> (begin try Pdfpagelabels.pagelabeltext_of_pagenumber pnum labs with Not_found -> "" end, pnum))
         (ilist 1 (Pdfpage.endpage pdf))
   in
   (*iter (fun (s, l) -> Printf.printf "%s = %i\n" s l) labels;*)