diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+pandoc-citeproc (0.8.1.2)
+
+  * Use UTF8 versions of readFile in test program.
+
 pandoc-citeproc (0.8.1.1)
 
   * Use pandoc's UTF8 versions of getContents, putStrLn, etc.
diff --git a/pandoc-citeproc.cabal b/pandoc-citeproc.cabal
--- a/pandoc-citeproc.cabal
+++ b/pandoc-citeproc.cabal
@@ -1,5 +1,5 @@
 name:               pandoc-citeproc
-version:            0.8.1.1
+version:            0.8.1.2
 cabal-version:      >= 1.12
 synopsis:           Supports using pandoc with citeproc
 
diff --git a/tests/test-citeproc.hs b/tests/test-citeproc.hs
--- a/tests/test-citeproc.hs
+++ b/tests/test-citeproc.hs
@@ -191,8 +191,8 @@
   withSystemTempDirectory "test-pandoc-citeproc-XXX" $ \fp -> do
     let expectedf = fp </> "expected"
     let actualf   = fp </> "actual"
-    writeFile expectedf expected'
-    writeFile actualf result'
+    UTF8.writeFile expectedf expected'
+    UTF8.writeFile actualf result'
     withDirectory fp $ void $ rawSystem "diff" ["-u","expected","actual"]
 
 withDirectory :: FilePath -> IO a -> IO a
@@ -238,7 +238,7 @@
       putStrLn "Copying existing test-citeproc.log to test-citeproc.log.old"
       copyFile "test-citeproc.log" "test-citeproc.log.old"
     putStrLn "Writing test-citeproc.log."
-    writeFile "test-citeproc.log" summary
+    UTF8.writeFile "test-citeproc.log" summary
   exitWith $ if numfailures == 0
                 then ExitSuccess
                 else ExitFailure $ numfailures + numerrors
diff --git a/tests/test-pandoc-citeproc.hs b/tests/test-pandoc-citeproc.hs
--- a/tests/test-pandoc-citeproc.hs
+++ b/tests/test-pandoc-citeproc.hs
@@ -61,8 +61,8 @@
 testCase :: Bool -> String -> IO TestResult
 testCase regenerate csl = do
   hPutStr stderr $ "[" ++ csl ++ ".in.native] "
-  indataNative <- readFile $ "tests/" ++ csl ++ ".in.native"
-  expectedNative <- readFile $ "tests/" ++ csl ++ ".expected.native"
+  indataNative <- UTF8.readFile $ "tests/" ++ csl ++ ".in.native"
+  expectedNative <- UTF8.readFile $ "tests/" ++ csl ++ ".expected.native"
   let jsonIn = Aeson.encode $ (read indataNative :: Pandoc)
   let expectedDoc = normalize $ read expectedNative
   testProgPath <- getExecutablePath