init: Display an additional message when it detects a filesystem that allows writing to files whose write bit is not set.

1 files changed, 1 insertions, 1 deletions

diff --git a/Test.hs b/Test.hs
index d22896f44..075f65e6a 100644
--- a/Test.hs
+++ b/Test.hs
@@ -147,7 +147,7 @@ runner = Just go
 		exitWith exitcode
 	runsubprocesstests opts (Just _) = isolateGitConfig $ do
 		ensuretmpdir
-		crippledfilesystem <- Annex.Init.probeCrippledFileSystem' tmpdir
+		crippledfilesystem <- annexeval $ Annex.Init.probeCrippledFileSystem' tmpdir
 		case tryIngredients ingredients (tastyOptionSet opts) (tests crippledfilesystem opts) of
 			Nothing -> error "No tests found!?"
 			Just act -> ifM act