1 files changed, 2 insertions, 0 deletions
diff --git a/socket.c b/socket.c
index b0c90465..c263edb1 100644
--- a/socket.c
+++ b/socket.c
@@ -267,6 +267,8 @@ static val sock_connect(val sock, val sockaddr)
     uw_throwf(socket_error_s, lit("connect failed: ~d/~s"),
               num(errno), string_utf8(strerror(errno)), nao);
 
+  sock_set_peer(sock, sockaddr);
+
   return t;
 }