From 1fe429bd6122111ec8d3d5b10ac0965be9a5547a Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 6 Apr 2023 14:15:11 +0100
Subject: [PATCH] more

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

diff --git a/cpdfpage.ml b/cpdfpage.ml
index f5997c1..14934a2 100644
--- a/cpdfpage.ml
+++ b/cpdfpage.ml
@@ -50,6 +50,7 @@ let rec change_pattern_matrices_resources pdf tr resources names_used_with_scn =
   end
 
 and change_pattern_matrices_xobject pdf tr xobj xobjnum =
+  let xobj = Pdf.direct pdf xobj in
   match Pdf.lookup_direct pdf "/Subtype" xobj with
   | Some (Pdf.Name "/Form") ->
       Pdfcodec.decode_pdfstream pdf xobj;