@@ -441,7 +441,7 @@ makeHeaderAnchor' (Header n (ident, classes, kvs) ils)
441441 newIls = concatMap f ils where f il | il == c = cIls
442442 | otherwise = [il]
443443 modify $ \s -> s {docxAnchorMap = M.insert anchIdent newIdent hdrIDMap}
444− return $ Header n (newIdent, classes, kvs) newIls
444+ makeHeaderAnchor' $ Header n (newIdent, classes, kvs) newIls
445445-- Otherwise we just give it a name, and register that name (associate
446446-- it with itself.)
447447makeHeaderAnchor' (Header n (ident, classes, kvs) ils) =