anchor.diff:  			{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),
   
  -    receive
  -	{error, timeout} -> ok
  +    ?P("[para] await sender timeout"),
  +    receive
  +	{error, timeout} ->
  +            ?P("[para] timeout received"),
  +            ok
       after 10000 ->
  -            ?P("UNEXPECTED timeout(1,~w)", [AutoClose]),
  +            ?P("[para] UNEXPECTED timeout(1,~w)", [AutoClose]),
   	    exit({timeout, AutoClose})
       end,
   
  +    ?P("await sender error"),
       receive
   	{error, Error_1} ->
  +            ?P("[para] error (~p) received", [Error_1]),
               after_send_timeout(AutoClose, Error_1)
       after 10000 ->
  -            ?P("UNEXPECTED timeout(2,~w)", [AutoClose]),
  +            ?P("[para] UNEXPECTED timeout(2,~w)", [AutoClose]),
   	    exit({timeout, AutoClose})
       end,
   
       {error,Error_2} = gen_tcp:send(A, <<"Hej">>),
       after_send_timeout(AutoClose, Error_2),
  +    ?P("[para] done"),    
       ok.
   
   
  
positive.code: 		     receive {Pid,X} -> X
  		     end
  	     end,
      {ok, C} = Remote(fun() ->
  			     gen_tcp:connect(Host,Port,
  					     [{active,false},{packet,2}])
  		     end),
      {ok, A} = gen_tcp:accept(L),
      gen_tcp:send(A,"Hello"),
      {ok, "Hello"} = Remote(fun() -> gen_tcp:recv(C,0) end),
      A.
  
  setup_active_timeout_sink(RNode, Timeout, AutoClose) ->
  
negative.code: send_timeout_para(AutoClose, RNode) ->
      BinData = <<1:10000>>,
  
      ?P("[para] sink"),
      A = setup_timeout_sink(RNode, 1000, AutoClose),
      Self = self(),
      SenderFun = fun() ->
  