fsck: Fix bug in moving of corrupted files to .git/annex/bad/

1 files changed, 2 insertions, 1 deletions

diff --git a/Core.hs b/Core.hs
index 08e226592..d59120d67 100644
--- a/Core.hs
+++ b/Core.hs
@@ -173,7 +173,8 @@ moveBad key = do
 	g <- Annex.gitRepo
 	let src = annexLocation g key
 	let dest = annexBadLocation g ++ takeFileName src
-	liftIO $ createDirectoryIfMissing True dest
+	liftIO $ createDirectoryIfMissing True (parentDir dest)
+	liftIO $ allowWrite (parentDir src)
 	liftIO $ renameFile src dest
 	liftIO $ removeDirectory (parentDir src)
 	return dest