diff --git a/cpdfbookmarks.ml b/cpdfbookmarks.ml index 6a76ef0..e4d3ae5 100644 --- a/cpdfbookmarks.ml +++ b/cpdfbookmarks.ml @@ -45,7 +45,7 @@ let target_of_markfile_obj pdf i' pdfobj = end (* Need to deal with "null", "(string)", and "< Pdfdest.NullDestination - | Pdf.String s -> Pdfdest.read_destination pdf (Pdf.String s) + | Pdf.String s -> Pdfdest.NamedDestinationElsewhere s (* TODO Remove hack. *) | x -> Pdfdest.Action x let target_of_markfile_target pdf i' = function