From a5b28c453ada01332f438cadeb52ada7951c17a7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Jun 2017 09:06:06 -0600
Subject: [PATCH] rktio: fix init of accepted socket

---
 racket/src/rktio/rktio_network.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/src/rktio/rktio_network.c b/racket/src/rktio/rktio_network.c
index 43dfc5bcf5..a4c7f3dbed 100644
--- a/racket/src/rktio/rktio_network.c
+++ b/racket/src/rktio/rktio_network.c
@@ -1629,7 +1629,8 @@ rktio_fd_t *rktio_accept(rktio_t *rktio, rktio_listener_t *listener)
     RKTIO_WHEN_SET_SOCKBUF_SIZE(setsockopt(s, SOL_SOCKET, SO_SNDBUF, (char *)&size, sizeof(int)));
 #  endif
 
-    return rktio_system_fd(rktio, s, RKTIO_OPEN_SOCKET | RKTIO_OPEN_READ | RKTIO_OPEN_WRITE | RKTIO_OPEN_OWN); 
+    return rktio_system_fd(rktio, s, (RKTIO_OPEN_SOCKET | RKTIO_OPEN_INIT | RKTIO_OPEN_OWN
+				      | RKTIO_OPEN_READ | RKTIO_OPEN_WRITE)); 
   } else {
     get_socket_error();
     return NULL;