tweak

Core.hs

@@ -203,14 +203,14 @@ fromAnnex key dest = do
 		removeDirectory dir
 
 {- Moves a key out of .git/annex/objects/ into .git/annex/bad, and
- - returns the directory it was moved to. -}
+ - returns the file it was moved to. -}
 moveBad :: Key -> Annex FilePath
 moveBad key = do
 	g <- Annex.gitRepo
 	let src = annexLocation g key
-	let dest = annexBadLocation g
+	let dest = annexBadLocation g ++ takeFileName src
 	liftIO $ createDirectoryIfMissing True dest
-	liftIO $ renameFile src (dest ++ takeFileName src)
+	liftIO $ renameFile src dest
 	liftIO $ removeDirectory (parentDir src)
 	return dest
 

doc/walkthrough.mdwn

@@ -311,7 +311,7 @@ might say about a badly messed up annex:
 	    WORM:1289672605:3:file
 	failed
 	fsck my_cool_big_file (checksum..)
-	  Bad file content; moved to .git/annex/bad/
+	  Bad file content; moved to .git/annex/bad/SHA1:7da006579dd64330eb2456001fd01948430572f2
 	  ** No known copies of the file exist!
 	failed
 	fsck important_file