diff --git a/ocamlmsg.ml b/ocamlmsg.ml
index d67ba0f..202745d 100644
--- a/ocamlmsg.ml
+++ b/ocamlmsg.ml
@@ -4,6 +4,7 @@ open Thread
 
 let rec accept_loop sock =
   let (s, peername) = accept sock in
+  setsockopt s TCP_NODELAY true;
   ignore (Relay.start_relay (s, peername));
   accept_loop sock