diff --git a/Setup.hs b/Setup.hs
index e942b0da2..056987e84 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -40,7 +40,7 @@ runTestSuite :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO a
 runTestSuite args _ pkg lbi = do
   let testDir = buildDir lbi </> "test-pandoc"
   testDir' <- canonicalizePath testDir
-  let testArgs = concatMap (\arg -> ["-t",arg]) args
+  let testArgs = "--timeout=5" : concatMap (\arg -> ["-t",arg]) args
   if any id [buildable (buildInfo exe) | exe <- executables pkg, exeName exe == "test-pandoc"]
      then inDirectory "tests" $ rawSystem (testDir' </> "test-pandoc") testArgs >>= exitWith
      else do