diff --git a/Data/Git/Storage.hs b/Data/Git/Storage.hs
index 7ef2c9ed24c03380bf36f6a5a29f0253dd78a27e..7b065b73b02d3fa43f69394ea2de5053a5f690d9 100644
--- a/Data/Git/Storage.hs
+++ b/Data/Git/Storage.hs
@@ -167,6 +167,7 @@ initRepo path = do
     exists <- isDirectory path
     when exists $ error "destination directory already exists"
     createParentDirectory path
+    createDirectory False path
     mapM_ (createDirectory False . (path </>))
         [ "branches", "hooks", "info"
         , "logs", "objects", "refs"