@@ -211,7 +211,7 @@ writeDocx opts doc@(Pandoc meta _) = do
211 let doc' = walk fixDisplayMath $ doc
211 let doc' = walk fixDisplayMath $ doc
212 username <- lookup "USERNAME" <$> getEnvironment
212 username <- lookup "USERNAME" <$> getEnvironment
213 utctime <- getCurrentTime
213 utctime <- getCurrentTime
214− distArchive <- getDefaultReferenceDocx Nothing
214+ distArchive <- getDefaultReferenceDocx datadir
215 refArchive <- case writerReferenceDocx opts of
215 refArchive <- case writerReferenceDocx opts of
216 Just f -> liftM (toArchive . toLazy) $ B.readFile f
216 Just f -> liftM (toArchive . toLazy) $ B.readFile f
217 Nothing -> getDefaultReferenceDocx datadir
217 Nothing -> getDefaultReferenceDocx datadir