diff --git a/Tests.hs b/Tests.hs
index 4fc0d480c..e969b0997 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -11,10 +11,6 @@ import PrintCommand
 import RegisterCommand
 
 
--- import Test.QuickCheck
--- quickcheck = mapM quickCheck ([
---         ] :: [Bool])
-
 runtests = do {putStrLn "Running tests.."; runTestTT $ tconcat [unittests, functests]}
 
 tconcat :: [Test] -> Test