@@ -1281,7 +1281,7 @@ inlineToOpenXML' opts (Link _ txt (src,_)) = do
12811281 M.insert src i extlinks }
12821282 return i
12831283 return [ mknode "w:hyperlink" [("r:id",id')] contents ]
1284−inlineToOpenXML' opts (Image attr alt (src, title)) = do
1284+inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do
12851285 pageWidth <- asks envPrintWidth
12861286 imgs <- gets stImages
12871287 let
@@ -1343,7 +1343,7 @@ inlineToOpenXML' opts (Image attr alt (src, title)) = do
13431343 in
13441344 imgElt
13451345
1346− case stImage of
1346+ wrapBookmark imgident =<< case stImage of
13471347 Just imgData -> return [generateImgElt imgData]
13481348 Nothing -> ( do --try
13491349 (img, mt) <- P.fetchItem src