diff --git a/src/Data/Binary.hs b/src/Data/Binary.hs
index a0a0bc702..86353e143 100644
--- a/src/Data/Binary.hs
+++ b/src/Data/Binary.hs
@@ -271,7 +271,7 @@ encodeFile f v = L.writeFile f (encode v)
 -- or otherwise finalise the resource.
 --
 decodeFile :: Binary a => FilePath -> IO a
-decodeFile f = bracket (openFile f ReadMode) hClose $ \h -> do
+decodeFile f = bracket (openBinaryFile f ReadMode) hClose $ \h -> do
     s <- L.hGetContents h
     evaluate $ runGet (do v <- get
                           m <- isEmpty