From 1b940e71807632354f65cadbd4753bd809ad79d4 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 5 Nov 2024 12:22:22 +0000
Subject: [PATCH] Names for image files with -merge-add-bookmarks

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

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index afe7d2a..5ad288e 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3655,7 +3655,7 @@ let go () =
                         if args.merge_add_bookmarks then
                           map2
                             (fun filename pdf -> Cpdfbookmarks.add_bookmark_title filename args.merge_add_bookmarks_use_titles pdf)
-                            (map (function InFile s -> s | StdIn -> "" | AlreadyInMemory _ -> "") names)
+                            (map (function InFile s -> s | StdIn -> "" | AlreadyInMemory (_, s) -> s) names)
                             pdfs
                         else
                           pdfs