diff --git a/P2P/Annex.hs b/P2P/Annex.hs
index f0da379903..b3b5d1f5b7 100644
--- a/P2P/Annex.hs
+++ b/P2P/Annex.hs
@@ -94,7 +94,7 @@ runLocal runst runner a = case a of
 			let runtransfer ti = Right
 				<$> storefile dest o l getb iv validitycheck nullMeterUpdate ti
 			let fallback = return $ Left $
-				ProtoFailureMessage "transfer failed"
+				ProtoFailureMessage "Transfer failed"
 			checktransfer runtransfer fallback
 		case v of
 			Left e -> return $ Left $ ProtoFailureException e
diff --git a/Remote/Helper/P2P.hs b/Remote/Helper/P2P.hs
index 7e2d13f2e2..4d048c8bc9 100644
--- a/Remote/Helper/P2P.hs
+++ b/Remote/Helper/P2P.hs
@@ -37,7 +37,7 @@ store runner k af p = do
 	metered (Just p) sizer $ \_ p' ->
 		runner p' (P2P.put k af p') >>= \case
 			Just True -> return ()
-			Just False -> giveup "transfer failed"
+			Just False -> giveup "Transfer failed"
 			Nothing -> remoteUnavail
 
 retrieve :: VerifyConfig -> (MeterUpdate -> ProtoRunner (Bool, Verification)) -> Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex Verification
@@ -46,7 +46,7 @@ retrieve verifyconfig runner k af dest p = do
 	metered (Just p) k $ \m p' -> 
 		runner p' (P2P.get dest k iv af m p') >>= \case
 			Just (True, v) -> return v
-			Just (False, _) -> giveup "transfer failed"
+			Just (False, _) -> giveup "Transfer failed"
 			Nothing -> remoteUnavail
 
 remove :: ProtoRunner Bool -> Key -> Annex ()