diff --git a/Remote/Git.hs b/Remote/Git.hs
index 90fb301c34..f59ef528b6 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -227,7 +227,7 @@ gen r u rc gc rs
 			, localpath = localpathCalc r
 			, getRepo = getRepoFromState st
 			, gitconfig = gc
-			, readonly = Git.repoIsHttp r
+			, readonly = Git.repoIsHttp r && not (isP2PHttp' gc)
 			, appendonly = False
 			, untrustworthy = False
 			, availability = repoAvail r