anchor.diff:  primitive_accept(doc) ->
       ["Test singular accept"];
   primitive_accept(Config) when is_list(Config) ->
  -    ?line {ok,LS}=gen_tcp:listen(0,[]),
  -    ?line {ok,PortNo}=inet:port(LS),
  -    ?line Parent = self(),
  -    ?line F = fun() -> Parent ! {accepted,self(),gen_tcp:accept(LS)} end,
  -    ?line P = spawn(F),
  -    ?line gen_tcp:connect("localhost",PortNo,[]),
  -    ?line receive
  -	      {accepted,P,{ok,P0}} when is_port(P0) ->
  -		  ok;
  -	      {accepted,P,Other0} ->
  -		  {error,Other0}
  -	  after 500 ->
  -		  {error,timeout}
  -	  end.
  +    {ok,LS}=gen_tcp:listen(0,[]),
  +    {ok,PortNo}=inet:port(LS),
  +    Parent = self(),
  +    F = fun() -> Parent ! {accepted,self(),gen_tcp:accept(LS)} end,
  +    P = spawn(F),
  +    gen_tcp:connect("localhost",PortNo,[]),
  +    receive
  +        {accepted,P,{ok,P0}} when is_port(P0) ->
  +            ok;
  +        {accepted,P,Other0} ->
  +            {error,Other0}
  +    after 500 ->
  +              {error,timeout}
  +    end.
   
   	
   multi_accept_close_listen(suite) ->
  
positive.code: otp_7731_send(Socket) ->
      Bin = <<1:10000>>,
      io:format("Client sending ~p bytes...\n",[size(Bin)]),
      ?line case gen_tcp:send(Socket, Bin) of
  	      ok -> otp_7731_send(Socket);
  	      {error,timeout} -> ok
  	  end.
  
  otp_7731_server(ClientPid) ->
      ?line {ok, LSocket} = gen_tcp:listen(0, [binary, {packet, raw}, 
  					     {active, false}]),
      ?line {ok, {_, PortNum}} = inet:sockname(LSocket),
      io:format("Listening on ~w with port number ~p\n", [LSocket, PortNum]),
      ClientPid ! {self(), ready, PortNum},
  
  
negative.code: 
  zombie_serve_client(Socket, Bin) ->
      %%io:format("Got connection on ~p\n",[Socket]),
      gen_tcp:send(Socket, Bin),
      %%io:format("Sent data, waiting for reply on ~p\n",[Socket]),
      case gen_tcp:recv(Socket, 4) of
  	      {error,closed} -> ok;
  	      {error,econnaborted} -> ok % may be returned on Windows
  	  end,
      %%io:format("Closing ~p\n",[Socket]),
      gen_tcp:close(Socket),
      zombie_collector ! {closed, Socket}.
  
  otp_7816(suite) -> [];    
  otp_7816(doc) -> 
      "Hanging send on windows when sending iolist with more than 16 binaries.";
  otp_7816(Config) when is_list(Config) ->
      Client = self(),
      Server = spawn_link(fun()-> otp_7816_server(Client) end),
      receive {Server, ready, PortNum} -> ok end,
  
      {ok, Socket} = gen_tcp:connect("localhost", PortNum,
                                     [binary, {active, false}, {packet, 4},
                                      {send_timeout, 10}]),
      %% We use the undocumented feature that sending can be resumed after
      %% a send_timeout without any data loss if the peer starts to receive data.
      %% Unless of course the 7816-bug is in affect, in which case the write event
  