anchor.diff:      SenderFun = fun() ->
                           ?P("[para:sender] start"),
   			Send = fun() -> gen_tcp:send(A, BinData) end,
  -			Self ! {self(), timeout_sink_loop(Send)}
  +			Self ! {self(), timeout_sink_loop(Send, TslTimeout)}
   		end,
       Info = fun() ->
   		   if is_port(A) ->
  
positive.code:                                           Self ! Res,
                                            Res
                                    end,
                             {{error, timeout}, _} = timeout_sink_loop(Send)
                     end),
      Diff = get_max_diff(),
      ?P("Max time for send: ~p", [Diff]),
  
negative.code: 
      %% Check that parallell writers do not hang forever
      ?P("check parallell writers wo autoclose"),
      send_timeout_para(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		      false, RNode),
      ?P("check parallell writers w autoclose"),
      send_timeout_para(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		      true, RNode),
  
      ?P("stop (slave) node"),
      ?STOP_NODE(RNode),
  