From 0a7f6c1f972c7c8fb70b289491d00a73701aed33 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 10 Sep 2024 16:41:18 +0100
Subject: [PATCH] Typo

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

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 00b0582..f1a8bc0 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -498,7 +498,7 @@ let write_structure_tree pdf st =
   in
   iter
     (fun (pon, _) ->
-       Pdf.addobj_given_num pdf (pon, Pdf.add_dict_entry (Pdf.lookup_obj pdf pon) "/StructParent" (Pdf.Integer pon)))
+       Pdf.addobj_given_num pdf (pon, Pdf.add_dict_entry (Pdf.lookup_obj pdf pon) "/StructParents" (Pdf.Integer pon)))
     !parentmap;
   let parentmap =
     map (fun (pon, items) -> (string_of_int pon, Pdf.Array (map (fun x -> Pdf.Indirect x) (rev items)))) !parentmap