From ce0ce777374d7563f3bceb9750ea2edb2acfb473 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 7 Mar 2025 19:51:49 +0000
Subject: [PATCH] Fix margin calculation in presence of crop box

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

diff --git a/cpdftoc.ml b/cpdftoc.ml
index 21c40a3..1da8350 100644
--- a/cpdftoc.ml
+++ b/cpdftoc.ml
@@ -233,7 +233,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
         @
         optional [Cpdftype.EndTag] @ [glue]
     in
-    let lm, rm, tm, bm =
+    let lm, rm, bm, tm =
       match firstpage_cropbox with
       | None -> (margin, margin, margin, margin)
       | Some (cminx, cminy, cmaxx, cmaxy) ->