anchor.diff:  	    end,
       ?line {ok,L2} = prim_inet:getstatus(LS),
       ?line true  = lists:member(accepting, L2),
  -    ?line ok = ?EXPECT_ACCEPTS([{Pid2,{error,timeout}}],1000),
  +    ?line ok = ?EXPECT_ACCEPTS([{Pid2,{error,timeout}}],1,1000),
       ?line {ok,L3} = prim_inet:getstatus(LS),
       ?line false  = lists:member(accepting, L3),
       ok.
  
positive.code:     ?line {ok,L4} = prim_inet:getstatus(LS),
      ?line true  = lists:member(accepting, L4),
      ?line gen_tcp:connect("localhost",PortNo,[]),
      ?line ok = ?EXPECT_ACCEPTS([{Pid3,{ok,Port}}] when is_port(Port),100),
      ?line {ok,L5} = prim_inet:getstatus(LS),
      ?line false  = lists:member(accepting, L5),
      ok.
  
negative.code:     {A,B,C}=erlang:now(),
      (A*1000000*1000)+(B*1000)+(C div 1000).
  	
  collect_accepts(0,_) -> [];
  collect_accepts(N,Tmo) ->
      A = millis(),
      receive
  	{accepted,P,Msg} ->
  	    [{P,Msg}] ++ collect_accepts(N-1,Tmo-(millis() - A))
      after Tmo ->
  	    []
      end.
     
  -define(EXPECT_ACCEPTS(Pattern,N,Timeout),
  	(fun() ->
                   case collect_accepts(if N =:= infinity -> -1; true -> N end,Timeout) of
  		     Pattern ->
  			 ok;
  		     Other ->
  