@@ -308,7 +308,7 @@ blockToLaTeX (Div (identifier,classes,_) bs) = do
308308 ref <- toLabel identifier
309309 let linkAnchor = if null identifier
310310 then empty
311− else "\\hyperdef{}" <> braces (text ref)
311+ else "\\hyperdef{}" <> braces (text ref) <> "{}"
312312 contents <- blockListToLaTeX bs
313313 if beamer && "notes" `elem` classes -- speaker notes
314314 then return $ "\\note" <> braces contents
@@ -672,7 +672,7 @@ inlineToLaTeX (Span (id',classes,_) ils) = do
672672 ref <- toLabel id'
673673 let linkAnchor = if null id'
674674 then empty
675− else "\\hyperdef{}" <> braces (text ref)
675+ else "\\hyperdef{}" <> braces (text ref) <> "{}"
676676 fmap (linkAnchor <>)
677677 ((if noEmph then inCmd "textup" else id) .
678678 (if noStrong then inCmd "textnormal" else id) .