From c0d5180fe95b6713d47c040a1b7c5e56b23b28e7 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 24 Mar 2023 22:42:02 +0000
Subject: [PATCH] more

---
 cpdfpage.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cpdfpage.ml b/cpdfpage.ml
index 6ef29f9..51815e4 100644
--- a/cpdfpage.ml
+++ b/cpdfpage.ml
@@ -103,6 +103,7 @@ let xobject_of_page ~fast pdf page =
 
 let shift_page ?(fast=false) dxdylist pdf pnum page =
   let xobj = xobject_of_page ~fast pdf page in
+  let xobjnum = Pdf.addobj pdf xobj in
   let dx, dy = List.nth dxdylist (pnum - 1) in
     let transform_op =
       Pdfops.Op_cm (Pdftransform.matrix_of_op (Pdftransform.Translate (dx, dy)))