From 618da13a80fd1d28982a2345114dd71c8df0c2de Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 29 Dec 2021 19:46:55 +0000
Subject: [PATCH] Fix UTF8 in Xmlm for XMP additions

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

diff --git a/cpdfmetadata.ml b/cpdfmetadata.ml
index da404dc..7d9c4c8 100644
--- a/cpdfmetadata.ml
+++ b/cpdfmetadata.ml
@@ -337,7 +337,7 @@ let set_pdf_info_xml kind fieldname value xmldata pdf =
   let dtd, tree = xmltree_of_bytes xmldata in
   let str =
     match value with
-      Pdf.String s -> s
+      Pdf.String s -> Pdftext.utf8_of_pdfdocstring s
     | Pdf.Boolean true -> "True"
     | Pdf.Boolean false -> "False"
     | _ -> failwith "set_pdf_info_xml: not a string"