diff --git a/Test.hs b/Test.hs
index 6f26fa9107..ff383710e4 100644
--- a/Test.hs
+++ b/Test.hs
@@ -78,7 +78,7 @@ main = do
 	indirectenv <- prepare False
 	directenv <- prepare True
 	let tests = testGroup "Tests"
-		[ properties
+		[ localOption (QuickCheckTests 1000) properties
 		, unitTests indirectenv "(indirect)"
 		, unitTests directenv "(direct)"
 		]