diff --git a/Annex/Init.hs b/Annex/Init.hs
index 9a284e62b3..63f27493b3 100644
--- a/Annex/Init.hs
+++ b/Annex/Init.hs
@@ -152,7 +152,7 @@ probeCrippledFileSystem = do
 
 probeCrippledFileSystem' :: FilePath -> IO (Bool, [String])
 #ifdef mingw32_HOST_OS
-probeCrippledFileSystem' _ = return True
+probeCrippledFileSystem' _ = return (True, [])
 #else
 probeCrippledFileSystem' tmp = do
 	let f = tmp </> "gaprobe"