anchor.diff:      Tester          = evaluator_start("tester", TesterSeq, TesterInitState),
   
       p("await evaluator(s)"),
  -    ok = await_evaluator_finish([Server, Tester]),
  -    ok.
  -
  -
  -api_to_connect_tcp_await_timeout(Socks, ServerSA) ->
  -    api_to_connect_tcp_await_timeout(Socks, ServerSA, 1).
  -
  -api_to_connect_tcp_await_timeout([], _ServerSA, _ID) ->
  +    ok = await_evaluator_finish([Server, Tester]).
  +
  +
  +api_to_connect_tcp_await_timeout(Socks, To, ServerSA) ->
  +    api_to_connect_tcp_await_timeout(Socks, To, ServerSA, 1).
  +
  +api_to_connect_tcp_await_timeout([], _To, _ServerSA, _ID) ->
       ?FAIL(unexpected_success);
  -api_to_connect_tcp_await_timeout([Sock|Socks], ServerSA, ID) ->
  +api_to_connect_tcp_await_timeout([Sock|Socks], To, ServerSA, ID) ->
       ei("~w: try connect", [ID]),
  -    case socket:connect(Sock, ServerSA, 5000) of
  +    Start = t(),
  +    case socket:connect(Sock, ServerSA, To) of
           {error, timeout} ->
               ei("expected timeout (~w)", [ID]),
  -            ok;
  +            Stop  = t(),
  +            TDiff = tdiff(Start, Stop),
  +            if
  +                (TDiff >= To) ->
  +                    ok;
  +                true ->
  +                    {error, {unexpected_timeout, TDiff, To}}
  +            end;
           {error, econnreset = Reason} ->
               ei("failed connecting: ~p - giving up", [Reason]),
               ok;
  
positive.code:     tc_try(api_to_recvmsg_tcp6,
             fun() ->
                     not_yet_implemented(),
                     Recv = fun(Sock) -> socket:recvmsg(Sock, 5000) end,
                     InitState = #{domain => inet6, recv => Recv},
                     ok = api_to_receive_tcp(InitState)
             end).
  
  
negative.code:     eprint("<ERROR> ", F, A).
  
  eprint(Prefix, F, A) ->
      io:format(user, "[~s][~s][~p] ~s" ++ F ++ "~n", 
                [formated_timestamp(), get(sname), self(), Prefix | A]).
  
  
  
  