diff --git a/Setup.lhs b/Setup.lhs
index 1125d1d3..06e2708f 100755
--- a/Setup.lhs
+++ b/Setup.lhs
@@ -2,10 +2,6 @@
 
 > module Main where
 > import Distribution.Simple
-> import System.Cmd (system)
 
 > main :: IO ()
-> main = defaultMainWithHooks (simpleUserHooks { runTests = runTests' })
-
-> runTests' :: a -> b -> c -> d -> IO ()
-> runTests' _ _ _ _ = system "runhaskell -DTEST runtests.hs" >> return ()
+> main = defaultMain