From 94da81f6a8eb27fac2617bd4045f01a5e76e7cfa Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 12 May 2023 16:24:36 +0100
Subject: [PATCH] more

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

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 4e52c03..809fa66 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -145,7 +145,7 @@ let read_resource pdf n res =
   | _ -> []
 
 let update_resources pdf old_resources =
-  let gss_resources = map (fun ((kind, v), n) -> (kind, Pdf.Real v)) (list_of_hashtbl (res ()).extgstates) in
+  let gss_resources = map (fun ((kind, v), n) -> (n, Pdf.Dictionary [(kind, Pdf.Real v)])) (list_of_hashtbl (res ()).extgstates) in
   let select_resources t =
     option_map (fun (_, (n, o)) -> if mem n (res ()).page_names then Some (n, Pdf.Indirect o) else None) (list_of_hashtbl t)
   in