Merge branch 'checkout'

1 files changed, 1 insertions, 0 deletions

diff --git a/Core.hs b/Core.hs
index 304c8a923..f9c9417bd 100644
--- a/Core.hs
+++ b/Core.hs
@@ -173,6 +173,7 @@ moveAnnex key src = do
 	let dir = parentDir dest
 	liftIO $ do
 		createDirectoryIfMissing True dir
+		allowWrite dir -- in case the directory already exists
 		renameFile src dest
 		preventWrite dest
 		preventWrite dir