@@ -437,8 +437,9 @@ sectionHeader ref level lst = do
437437 res <- inlineListToLaTeX lstNoNotes
438438 return $ char '[' <> res <> char ']'
439439 let stuffing = optional <> char '{' <> txt <> char '}'
440− book <- liftM stBook get
441− let level' = if book then level - 1 else level
440+ book <- gets stBook
441+ opts <- gets stOptions
442+ let level' = if book || writerChapters opts then level - 1 else level
442443 internalLinks <- gets stInternalLinks
443444 let refLabel lab = (if ref `elem` internalLinks
444445 then text "\\hyperdef"
@@ -450,7 +451,9 @@ sectionHeader ref level lst = do
450451 $$ blankline
451452 let headerWith x y = refLabel $ text x <> y
452453 return $ case level' of
453− 0 -> headerWith "\\chapter" stuffing
454+ 0 -> if writerBeamer opts
455+ then headerWith "\\part" stuffing
456+ else headerWith "\\chapter" stuffing
454457 1 -> headerWith "\\section" stuffing
455458 2 -> headerWith "\\subsection" stuffing
456459 3 -> headerWith "\\subsubsection" stuffing