anchor.diff:  %% Check that multi-accept timeouts happen in the correct order after
   %% mixing millsec and sec timeouts.
   accept_timeouts_in_order4(Config) when is_list(Config) ->
  +    try do_accept_timeouts_in_order4(Config)
  +    catch
  +        throw:{skip, _} = SKIP ->
  +            SKIP
  +    end.
  +
  +do_accept_timeouts_in_order4(_Config) ->
       {ok,LS}=gen_tcp:listen(0,[]),
       Parent = self(),
       P1 = spawn(mktmofun(200,Parent,LS)),
  
positive.code: 
  %% Check that multi-accept timeouts happen in the correct order (more).
  accept_timeouts_in_order2(Config) when is_list(Config) ->
      {ok,LS}=gen_tcp:listen(0,[]),
      Parent = self(),
      P1 = spawn(mktmofun(1400,Parent,LS)),
  
negative.code: collect_accepts(N,Tmo) ->
      A = millis(),
      receive
  	{accepted, P, {error, eaddrnotavail = Reason}} ->
              p("~p Failed accept: ~p", [P, Reason]),
              skip(accept_failed_str(Reason));
  
          {accepted,P,Msg} ->
              NextN = if N =:= infinity -> N; true -> N - 1 end,
  	    [{P,Msg}] ++ collect_accepts(NextN, Tmo - (millis()-A))
      after Tmo ->
  