anchor.diff:      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
  +        {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)
  +                            wait_until_accepting(Proc, N-1)
                       end
               end;
  -         _O2 ->
  +        {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)
  +                    wait_until_accepting(Proc, N-1)
               end
       end.
   
  
positive.code:     inet:setopts(S, [{active, 10}]),
      ?P("start collecting data"),
      RecvSize = anc_await_closed_and_down(S, Pid, MRef),
      %% {RecvSize, Down} =
      %%     (fun Server(Size) ->
      %%              receive
      %%                  {tcp, S, Bin} ->
      %%                      %% ?P("got a chunk (~w) of data", [byte_size(Bin)]),
      %%                      Server(byte_size(Bin) + Size);
      %%                  {tcp_closed, S} ->
      %%                      ?P("got closed -> we are done: ~w", [Size]),
      %%                      Size;
      %%                  {tcp_passive, S} ->
      %%                      %% ?P("got passive -> active"),
      %%                      inet:setopts(S, [{active, 10}]),
      %%                      Server(Size);
      %%                  {'DOWN', MRef, process, Pid, Reason} ->
      %%                      ?P("Received UNEXPECTED down message regarding client:"
      %%                         "~n   Reason: ~p"
      %%                         "~n   S:      ~p"
      %%                         "~n   Port Info: ~p",
      %%                         [Reason, ]),
      %%                      ct:fail({unexpected_client_down, Reason});
      %%                  Msg ->
      %%                      ?P("ignore: ~p", [Msg]),
      %%                      Server(Size)
      %%              end
      %%      end)(0),
      %% ?P("await client process termination"),
      %% receive
      %%     {'DOWN', MRef, process, Pid, ok} ->
      %%         ok;
      %%     {'DOWN', MRef, process, Pid, CloseRes} ->
      %%         exit({unexpected, close, CloseRes})
      %% end,
  
      ?P("close listen socket"),
      gen_tcp:close(L),
  
negative.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) ->
      ?TC_TRY(accept_timeouts_mixed,
              fun() -> do_accept_timeouts_mixed(Config) end).
  
  do_accept_timeouts_mixed(Config) ->
      ?P("create listen socket"),
  