diff --git a/src/Test/Self.hs b/src/Test/Self.hs
index ea5ab296..7df7f307 100644
--- a/src/Test/Self.hs
+++ b/src/Test/Self.hs
@@ -19,8 +19,8 @@ newtype GhcFlags = GhcFlags () deriving (Show,Typeable,Eq,Hashable,Binary,NFData
 type instance RuleResult GhcPkg = [String]
 type instance RuleResult GhcFlags = [String]
 
--- Doesn't work on the Windows CI for reasons I don't understand
-main = testBuild (notWindowsCI . defaultTest) $ do
+-- Doesn't work on CI, seems self-building under `cabal test` is just hard
+main = testBuild (notCI . defaultTest) $ do
     let moduleToFile ext xs = replace "." "/" xs <.> ext
     want ["Main" <.> exe]