@@ -231,10 +231,11 @@ writeDocx opts doc@(Pandoc meta _) = do
231231 username <- P.lookupEnv "USERNAME"
232232 utctime <- P.getCurrentTime
233233 distArchive <- (toArchive . BL.fromStrict) <$>
234− P.readDataFile datadir "reference.docx"
234+ P.readDataFile Nothing "reference.docx"
235235 refArchive <- case writerReferenceDoc opts of
236236 Just f -> toArchive <$> P.readFileLazy f
237− Nothing -> return distArchive
237+ Nothing -> (toArchive . BL.fromStrict) <$>
238+ P.readDataFile datadir "reference.docx"
238239
239240 parsedDoc <- parseXml refArchive distArchive "word/document.xml"
240241 let wname f qn = qPrefix qn == Just "w" && f (qName qn)