@@ -555,6 +555,7 @@ sectionHeader :: Bool -- True for unnumbered
555555 -> State WriterState Doc
556556sectionHeader unnumbered ref level lst = do
557557 txt <- inlineListToLaTeX lst
558+ plain <- stringToLaTeX TextString $ foldl (++) "" $ map stringify lst
558559 let noNote (Note _) = Str ""
559560 noNote x = x
560561 let lstNoNotes = walk noNote lst
@@ -567,7 +568,9 @@ sectionHeader unnumbered ref level lst = do
567568 then return empty
568569 else do
569570 return $ brackets txtNoNotes
570− let stuffing = star <> optional <> braces txt
571+ let stuffing = star <> optional <> braces (text "\\texorpdfstring"
572+ <> braces txt
573+ <> braces (text plain))
571574 book <- gets stBook
572575 opts <- gets stOptions
573576 let level' = if book || writerChapters opts then level - 1 else level