fsck bugfixes

1 files changed, 4 insertions, 2 deletions

diff --git a/Core.hs b/Core.hs
index 789b369cc..2a81678aa 100644
--- a/Core.hs
+++ b/Core.hs
@@ -207,9 +207,11 @@ fromAnnex key dest = do
 moveBad :: Key -> Annex FilePath
 moveBad key = do
 	g <- Annex.gitRepo
-	let src = parentDir $ annexLocation g key
+	let src = annexLocation g key
 	let dest = annexBadLocation g
-	liftIO $ renameDirectory src dest
+	liftIO $ createDirectoryIfMissing True dest
+	liftIO $ renameFile src (dest ++ takeFileName src)
+	liftIO $ removeDirectory (parentDir src)
 	return dest
 
 {- List of keys whose content exists in .git/annex/objects/ -}