anchor.diff:      ?P("create (slave) node"),
       {ok, RNode} = ?START_SLAVE_NODE(?UNIQ_NODE_NAME, "-pa " ++ Dir),
   
  -    {SndTimeout, BinData, SndBuf} = 
  +    {TslTimeout, SndTimeout, BinData, SndBuf} = 
   	case ?IS_SOCKET_BACKEND(Config) of
   	    true ->
  -		{3000, binary:copy(<<$a:8>>, 10*1024), 5*1024};
  +		{100, 3000, binary:copy(<<$a:8>>, 10*1024), 5*1024};
   	    false ->
  -		{1000, binary:copy(<<$a:8>>, 1*1024),  16*1024}
  +		{1,   1000, binary:copy(<<$a:8>>, 1*1024),  16*1024}
   	end,
   
       %% Basic
       ?P("basic check wo autoclose"),
  -    send_timeout_basic(Config, BinData, SndBuf, SndTimeout, false, RNode),
  +    send_timeout_basic(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  +		       false, RNode),
       ?P("basic check w autoclose"),
  -    send_timeout_basic(Config, BinData, SndBuf, SndTimeout, true, RNode),
  +    send_timeout_basic(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  +		       true, RNode),
   
       %% Check timeout length.
       ?P("spawn sink process (check timeout length)"),
  
positive.code:     ?P("done"),
      ok.
  
  send_timeout_basic(Config, BinData, SndBuf, 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),
  
      %% Check that the socket is not busy/closed...
      ?P("verify socket not busy/closed"),
  
negative.code:     {ok, "H"++_} = Remote(fun() -> gen_tcp:recv(C, 0) end),
      {A, C}.
  
  %% timeout_sink_loop(Action) ->
  %%     timeout_sink_loop(Action, 1).
  
  timeout_sink_loop(Action, To) ->
      put(action,  nothing),
  