diff --git a/cpdfbookmarks.ml b/cpdfbookmarks.ml
index 4386e64..6a76ef0 100644
--- a/cpdfbookmarks.ml
+++ b/cpdfbookmarks.ml
@@ -259,9 +259,9 @@ let list_bookmarks ~json ~json_preserve_actions encoding range pdf output =
                    (output_string_of_target pdf fastrefnums mark.Pdfmarks.target)))
             inrange
 
-let get_bookmarks_json pdf =
+let get_bookmarks_json ~json_preserve_actions pdf =
   let o, br = Pdfio.input_output_of_bytes (20 * 1024) in
-    list_bookmarks ~json:true Cpdfmetadata.UTF8 (ilist 1 (Pdfpage.endpage pdf)) pdf o;
+    list_bookmarks ~json:true ~json_preserve_actions Cpdfmetadata.UTF8 (ilist 1 (Pdfpage.endpage pdf)) pdf o;
     Pdfio.extract_bytes_from_input_output o br
 
 let get_bookmark_name encoding pdf marks splitlevel n _ =
diff --git a/cpdfbookmarks.mli b/cpdfbookmarks.mli
index 24ed2e4..b2ccc17 100644
--- a/cpdfbookmarks.mli
+++ b/cpdfbookmarks.mli
@@ -15,7 +15,7 @@ chosen. *)
 val list_bookmarks : json:bool -> json_preserve_actions:bool -> Cpdfmetadata.encoding -> int list -> Pdf.t -> Pdfio.output -> unit
 
 (** Get bookmarks in JSON format. *)
-val get_bookmarks_json : Pdf.t -> Pdfio.bytes
+val get_bookmarks_json : json_preserve_actions:bool -> Pdf.t -> Pdfio.bytes
 
 (** [name_of_spec encoding marks pdf splitlevel spec n filename startpage
     endpage] expands a bookmark specifiation filename. *)