diff --git a/Remote/P2P.hs b/Remote/P2P.hs
index bc0e2f9230..0813098f18 100644
--- a/Remote/P2P.hs
+++ b/Remote/P2P.hs
@@ -188,7 +188,7 @@ openConnection u addr = do
 					liftIO $ closeConnection conn
 					return ClosedConnection
 				Left e -> do
-					warning e
+					warning $ "Problem communicating with peer. (" ++ e ++ ")"
 					liftIO $ closeConnection conn
 					return ClosedConnection
 		Left e -> do