diff --git a/Setup.lhs b/Setup.lhs
index d9014a88..1125d1d3 100755
--- a/Setup.lhs
+++ b/Setup.lhs
@@ -8,4 +8,4 @@
 > main = defaultMainWithHooks (simpleUserHooks { runTests = runTests' })
 
 > runTests' :: a -> b -> c -> d -> IO ()
-> runTests' _ _ _ _ = system "runhaskell Test.hs" >> return ()
+> runTests' _ _ _ _ = system "runhaskell -DTEST runtests.hs" >> return ()
diff --git a/TODO b/TODO
index 09661ca9..45fb01e7 100644
--- a/TODO
+++ b/TODO
@@ -1,3 +1 @@
 HTML sitemap generation
-Remove model
-Authentication seems broken