anchor.diff:  			     gen_tcp:connect(Host,Port,
   					     [{active,false},{packet,2}])
   		     end),
  -    {ok,A} = gen_tcp:accept(L),
  +    {ok, A} = gen_tcp:accept(L),
       gen_tcp:send(A,"Hello"),
       {ok, "Hello"} = Remote(fun() -> gen_tcp:recv(C,0) end),
       A.
  
positive.code:     spawn_link(SenderFun),
  
      receive
  	{error,timeout} -> ok
      after 10000 ->
  	    exit(timeout)
      end,
  
      receive
  	{error,Error_1} ->
              after_send_timeout(AutoClose, Error_1)
      after 10000 ->
  	    exit(timeout)
      end,
  
      {error,Error_2} = gen_tcp:send(A, <<"Hej">>),
      after_send_timeout(AutoClose, Error_2),
      ok.
  
  mad_sender(S) ->
      U = rand:uniform(1000000),
      case gen_tcp:send(S, integer_to_list(U)) of
          ok ->
              mad_sender(S);
          Err ->
              Err
      end.
  
  
  flush() ->
      receive
  	_X ->
  	    flush()
      after 0 ->
  	    ok
      end.
  
  %% Test the send_timeout socket option for active sockets.
  send_timeout_active(Config) when is_list(Config) ->
  
negative.code:     {ok, C} = Remote(fun() ->
  			     gen_tcp:connect(Host, Port, [{active,false}])
  		     end),
      {ok, A} = gen_tcp:accept(L),
      gen_tcp:send(A, "Hello"),
      {ok, "H"++_} = Remote(fun() -> gen_tcp:recv(C, 0) end),
      {A, C}.
  
  timeout_sink_loop(Action) ->
      Ret = Action(),
  