anchor.diff:           end,
       Parent = self(),
       {ok,PortNo}=inet:port(LS),
  +
       ?P("create acceptor process 1 (with timeout 1000)"),
       P1 = spawn(mktmofun(1000,Parent,LS)),
  +
       ?P("await ~p accepting", [P1]),
       wait_until_accepting(P1,500),
  +
       ?P("create acceptor process 2 (with timeout 2000)"),
       P2 = spawn(mktmofun(2000,Parent,LS)),
  +
       ?P("await ~p accepting", [P2]),
       wait_until_accepting(P2,500),
  +
       ?P("create acceptor process 3 (with timeout 3000)"),
       P3 = spawn(mktmofun(3000,Parent,LS)),
  +
       ?P("await ~p accepting", [P3]),
       wait_until_accepting(P3,500),
  +
       ?P("create acceptor process 4 (with timeout 4000)"),
       P4 = spawn(mktmofun(4000,Parent,LS)),
  +
       ?P("await ~p accepting", [P4]),
       wait_until_accepting(P4,500),
  +
       ?P("expect accept from 1 (~p) with timeout", [P1]),
       ok = ?EXPECT_ACCEPTS([{P1,{error,timeout}}],infinity,1500),
  +
       ?P("connect"),
       case ?CONNECT(Config, "localhost", PortNo, []) of
           {ok, _} ->
  
positive.code: 			  {P1,{error,timeout}},{P3,{error,timeout}},
  			  {P8,{error,timeout}},{P7,{error,timeout}}],infinity,2000).
  
  %% Check that multi-accept timeouts behave correctly when mixed with successful timeouts.
  accept_timeouts_mixed(Config) when is_list(Config) ->
      try do_accept_timeouts_mixed(Config)
      catch
          throw:{skip, _} = SKIP ->
              SKIP
      end.
  
  do_accept_timeouts_mixed(Config) ->
      ?P("create listen socket"),
  
negative.code:     exit({timeout_waiting_for_accepting,Proc});
  wait_until_accepting(Proc,N) ->
      case process_info(Proc,current_function) of
          {current_function, {prim_inet, accept0, 3}} ->
              case process_info(Proc, status) of
                  {status,waiting} -> 
                      ok;
                  _O1 ->
                      receive 
                      after 5 ->
                              wait_until_accepting(Proc, N-1)
                      end
              end;
          {current_function, {gen, do_call, 4}} ->
              case process_info(Proc, status) of
                  {status,waiting} -> 
                      ok;
                  _O1 ->
                      receive 
                      after 5 ->
                              wait_until_accepting(Proc, N-1)
                      end
              end;
          _O2 ->
              receive 
              after 5 ->
                      wait_until_accepting(Proc, N-1)
              end
      end.
  
  