1 files changed, 1 insertions, 1 deletions
diff --git a/Test.hs b/Test.hs
index f92d825d0..35d9ddace 100644
--- a/Test.hs
+++ b/Test.hs
@@ -1837,7 +1837,7 @@ cleanup = cleanup' False
 
 cleanup' :: Bool -> FilePath -> IO ()
 cleanup' final dir = whenM (doesDirectoryExist dir) $ do
-	Command.Uninit.prepareRemoveAnnexDir dir
+	Command.Uninit.prepareRemoveAnnexDir' dir
 	-- This sometimes fails on Windows, due to some files
 	-- being still opened by a subprocess.
 	catchIO (removeDirectoryRecursive dir) $ \e ->