diff --git a/Propellor/Property/Dns.hs b/Propellor/Property/Dns.hs
index 1984465..0708417 100644
--- a/Propellor/Property/Dns.hs
+++ b/Propellor/Property/Dns.hs
@@ -245,7 +245,7 @@ writeZonePropellorFile f z = writeFile (zonePropellorFile f) (show z)
 
 readZonePropellorFile :: FilePath -> IO (Maybe Zone)
 readZonePropellorFile f = catchDefaultIO Nothing $
-	readish <$> readFile (zonePropellorFile f)
+	readish <$> readFileStrict (zonePropellorFile f)
 
 -- | Generating a zone file.
 genZoneFile :: Zone -> String