anchor.diff:           %% *** Wait for start order part ***
            #{desc => "await start (from tester)",
              cmd  => fun(State) ->
  -                           receive
  -                               {start, Tester} when is_pid(Tester) ->
  -                                   {ok, State#{tester => Tester}}
  -                           end
  +                           Tester = ev_await_start(),
  +                           {ok, State#{tester => Tester}}
  +                   end},
  +         #{desc => "monitor tester",
  +           cmd  => fun(#{tester := Tester} = _State) ->
  +                           _MRef = erlang:monitor(process, Tester),
  +                           ok
                      end},
   
            %% *** Init part ***
  
positive.code:            cmd  => fun(#{lsock := LSock}) ->
                             socket:listen(LSock, 1)
                     end},
           #{desc => "monitor server",
             cmd  => fun(#{tester := Tester} = State) ->
                             MRef = erlang:monitor(process, Tester),
                             {ok, State#{tester_mref => MRef}}
                     end},
           #{desc => "announce ready",
             cmd  => fun(#{tester := Tester, lport := Port}) ->
                             ei("announcing ready to tester (~p)", [Tester]),
                             Tester ! {ready, self(), Port},
                             ok
                     end},
           #{desc => "await terminate (from tester)",
             cmd  => fun(#{tester := Tester} = State) ->
                             receive
                                 {'DOWN', _, process, Tester, Reason} ->
                                     ee("Unexpected DOWN regarding tester ~p: "
                                        "~n   ~p", [Tester, Reason]),
                                     {error, {unexpected_exit, tester}};
                                 {terminate, Tester} ->
                                     {ok, maps:remove(tester, State)}
                             end
                     end},
  
           %% *** We are done ***
  
negative.code:                            end
                     end},
           #{desc => "bind socket 3 to local address",
             cmd  => fun(#{sock3 := Sock, local_sa := LSA} = _State) ->
                             case socket:bind(Sock, LSA) of
                                 {ok, _} ->
                                     ok;
  