anchor.diff:      {ok, "H"++_} = Remote(fun() -> gen_tcp:recv(C, 0) end),
       {A, C}.
   
  -timeout_sink_loop(Action) ->
  -    timeout_sink_loop(Action, 100).
  +%% timeout_sink_loop(Action) ->
  +%%     timeout_sink_loop(Action, 1).
   
   timeout_sink_loop(Action, To) ->
       put(action,  nothing),
  
positive.code: 	    ct:fail("Unexpected send success")
      end.
  
  send_timeout_para(Config, BinData, BufSz, SndTimeout, AutoClose, RNode) ->
      ?P("[para] sink -> entry with"
         "~n      size(BinData): ~p"
         "~n      BufSz:         ~p"
  
negative.code:     ?P("done"),
      ok.
  
  send_timeout_basic(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		   AutoClose, RNode) ->
      ?P("[basic] sink"),
      {A, Pid}              = setup_timeout_sink(Config, RNode, SndTimeout,
  					       AutoClose, SndBuf),
      Send                  = fun() -> gen_tcp:send(A, BinData) end,
      {{error, timeout}, _} = timeout_sink_loop(Send, TslTimeout),
  
      %% Check that the socket is not busy/closed...
      ?P("verify socket not busy/closed"),
  