@@ -415,10 +415,10 @@ blockToLaTeX (Para [Image attr@(ident, _, _) txt (src,'f':'i':'g':':':tit)]) = d
415415 else brackets <$> inlineListToLaTeX (walk deNote txt)
416416 img <- inlineToLaTeX (Image attr txt (src,tit))
417417 let footnotes = notesToLaTeX notes
418− figure <- refLabel ident $ cr <>
418+ caption <- refLabel ident ("\\caption" <> captForLof <> braces capt)
419+ let figure = cr <>
419420 "\\begin{figure}[htbp]" $$ "\\centering" $$ img $$
420− ("\\caption" <> captForLof <> braces capt) $$
421− "\\end{figure}" <> cr
421+ caption $$ "\\end{figure}" <> cr
422422 return $ if inNote
423423 -- can't have figures in notes
424424 then "\\begin{center}" $$ img $+$ capt $$ "\\end{center}"