@@ -415,10 +415,14 @@ writeEPUB opts doc@(Pandoc meta _) = do
415415 let blocks'' = replaceRefs reftable blocks'
416416
417417 let isChapterHeader (Header n _ _) = n <= chapterHeaderLevel
418+ isChapterHeader (Div ("",["references"],[]) (Header n _ _:_)) =
419+ n <= chapterHeaderLevel
418420 isChapterHeader _ = False
419421
420422 let toChapters :: [Block] -> State [Int] [Chapter]
421423 toChapters [] = return []
424+ toChapters (Div ("",["references"],[]) bs@(Header 1 _ _:_) : rest) =
425+ toChapters (bs ++ rest)
422426 toChapters (Header n attr@(_,classes,_) ils : bs) = do
423427 nums <- get
424428 mbnum <- if "unnumbered" `elem` classes