anchor.diff:                          ?P("[server] await continue"),
                           receive
                               {Master, continue} ->
  -                                ?P("[server] continue"),
  +                                ?P("[server] received continue"),
                                   busy_send_srv(L, Master, Msg)
                           end;
                       {error, Reason} ->
  
positive.code:         fun() ->
                  ?P("[server] create listen socket"),
                  case ?LISTEN(Config, 0, [{active,false},binary,
                                          {reuseaddr,true},{packet,0}]) of
                      {ok, L} ->
                          ?P("[server] listen socket created"),
                          {ok, Port} = inet:port(L),
  
negative.code: busy_send_2(Server, Client, _N) ->
      %% Master
      %%
      ?P("[master] await (server) closed"),
      receive
          {Server, [closed]} ->
              ?P("[master] received expected (server) closed - "
                 "await client closed"),
              receive
                  {Client, [0,{error,closed}]} ->
                      ?P("[master] received expected (client) closed"),
                      ok
              end
      after 10000 ->
              ?P("[master] UNEXPECTED: server closed timeout"),
              ct:fail({timeout, {server, not_closed, flush([])}})
      end.
  
  busy_send_srv(L, Master, Msg) ->
      %% Server
      %% Sometimes this accept does not return, do not really know why
      %% but it causes the timeout error in busy_send_loop to be
      %% triggered. Only happens on OS X Leopard?!?
      ?P("[server] try accept"),
      case gen_tcp:accept(L) of
          {ok, Socket} ->
              ?P("[server] accepted"),
  