@@ -486,8 +486,8 @@ archiveToNotes zf =
486486 Just e -> elemToNameSpaces e
487487 Nothing -> []
488488 ns = unionBy (\x y -> fst x == fst y) fn_namespaces en_namespaces
489− fn = fnElem >>= elemToNotes ns "footnote"
490− en = enElem >>= elemToNotes ns "endnote"
489+ fn = fnElem >>= walkDocument ns >>= elemToNotes ns "footnote"
490+ en = enElem >>= walkDocument ns >>= elemToNotes ns "endnote"
491491 in
492492 Notes ns fn en
493493
@@ -498,7 +498,7 @@ archiveToComments zf =
498498 cmts_namespaces = case cmtsElem of
499499 Just e -> elemToNameSpaces e
500500 Nothing -> []
501− cmts = elemToComments cmts_namespaces <$> cmtsElem
501+ cmts = elemToComments cmts_namespaces <$> (cmtsElem >>= walkDocument cmts_namespaces)
502502 in
503503 case cmts of
504504 Just c -> Comments cmts_namespaces c