diff --git a/Build/TestConfig.hs b/Build/TestConfig.hs
index 03d87cd8bf..0cc2019cfe 100644
--- a/Build/TestConfig.hs
+++ b/Build/TestConfig.hs
@@ -5,7 +5,6 @@ module Build.TestConfig where
 import System.IO
 import System.Cmd
 import System.Exit
-import System.Directory
 
 type ConfigKey = String
 data ConfigValue =
@@ -37,14 +36,8 @@ instance Show Config where
 			valuetype (MaybeBoolConfig _) = "Maybe Bool"
 
 writeSysConfig :: [Config] -> IO ()
-writeSysConfig config = do
-	e <- doesFileExist dest
-	old <- if e then readFile dest else return []
-	if (old /= body)
-		then writeFile dest body
-		else return ()
+writeSysConfig config = writeFile "Build/SysConfig.hs" body
 	where
-		dest = "Build/SysConfig.hs"
 		body = unlines $ header ++ map show config ++ footer
 		header = [
 			  "{- Automatically generated. -}"