From 126530a2de9c84e593bb65cdf7526a4ee911edac Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 27 Sep 2022 20:10:19 +0100
Subject: [PATCH] more

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

diff --git a/cpdftype.ml b/cpdftype.ml
index 8079437..863d821 100644
--- a/cpdftype.ml
+++ b/cpdftype.ml
@@ -174,7 +174,7 @@ let paginate tmargin bmargin papersize i =
 
 let make_resources fontobjnums =
   Pdf.Dictionary
-    [("/Font", Pdf.Dictionary (map (fun fo -> ("/F" ^ string_of_int fo, Pdf.Indirect fo)) fontobjnums))]
+    [("/Font", Pdf.Dictionary (map (fun fo -> ("/F" ^ string_of_int fo, Pdf.Indirect fo)) (setify fontobjnums)))]
 
 let make_annotations annots =
   if annots = [] then Pdf.Dictionary [] else