anchor.diff:  gen_listen(Driver, Name) ->
       case inet_tcp_dist:gen_listen(Driver, Name) of
           {ok, {Socket, Address, Creation}} ->
  -            inet:setopts(Socket, [{packet, 4}]),
  +            inet:setopts(Socket, [{packet, 4}, {nodelay, true}]),
               {ok, {Socket, Address#net_address{protocol=tls}, Creation}};
           Other ->
               Other
  
positive.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2011-2018. All Rights Reserved.
  %%
  %% Licensed under the Apache License, Version 2.0 (the "License");
  %% you may not use this file except in compliance with the License.
  
negative.code:     case ssl:connect(
          Address, TcpPort,
          [binary, {active, false}, {packet, 4},
              Driver:family(), {nodelay, true}] ++ Opts,
          net_kernel:connecttime()) of
      {ok, #sslsocket{pid = [_, DistCtrl| _]} = SslSocket} ->
              _ = monitor_pid(DistCtrl),
  