From 43b0d54d23821c0fc1a4b1d4c7cf7496a679684b Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 26 Jan 2024 13:17:12 +0000
Subject: [PATCH] Fix -shift-boxes

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

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 1416d7b..aca020c 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -4031,7 +4031,7 @@ let go () =
       let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
       let dxdylist = Cpdfcoord.parse_coordinates pdf args.coord in
       let dx, dy = match dxdylist with (a, b)::_ -> a, b | _ -> 0.0, 0.0 in
-      let f (xmin, xmax, ymin, ymax) = (xmin +. dx, xmax +. dx, ymin +. dy, ymax +. dy) in
+      let f (xmin, ymin, xmax, ymax) = (xmin +. dx, ymin +. dy, xmax +. dx, ymax +. dy) in
       let fpage _ p = Cpdfpage.change_boxes f pdf p in
         write_pdf false (Cpdfpage.process_pages (Pdfpage.ppstub fpage) pdf range)
   | Some Scale ->