anchor.diff:  
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
  +send_failed_str(Reason) ->
  +    ?F("Send failed: ~w", [Reason]).
  +
   connect_failed_str(Reason) ->
       ?F("Connect failed: ~w", [Reason]).
   
  
positive.code:     A = setup_timeout_sink(RNode, 1000, AutoClose),
      Self = self(),
      SenderFun = fun() ->
  			Send = fun() -> gen_tcp:send(A, BinData) end,
  			{error,Error} = timeout_sink_loop(Send),
  			Self ! {error,Error}
  		end,
      ?P("[para] spawn process 1 with sender fun"),
      spawn_link(SenderFun),
      ?P("[para] spawn process 2 with sender fun"),
      spawn_link(SenderFun),
  
      ?P("[para] await sender timeout"),
      receive
  	{error, timeout} ->
              ?P("[para] timeout received"),
              ok
      after 10000 ->
              ?P("[para] UNEXPECTED timeout(1,~w)", [AutoClose]),
  	    exit({timeout, AutoClose})
      end,
  
  
negative.code: 
  do_busy_disconnect_passive2(MuchoData, N) ->
      ?P("[passive,~w] *** prepare server *** ", [N]),
      {_Server, S} = busy_disconnect_prepare_server([{active,false}]),
      ?P("[passive,~w] server prepared - start sending", [N]),
      busy_disconnect_passive_send(S, MuchoData).
  
  busy_disconnect_passive_send(S, Data) ->
      case gen_tcp:send(S, Data) of
  	ok ->
              busy_disconnect_passive_send(S, Data);
  	{error, closed} ->
              ok
      end.
  
  %%%
  