anchor.diff:                             end
                      end},
            #{desc => "bind socket 3 to local address",
  -           cmd  => fun(#{sock3 := Sock, lsa := LSA} = _State) ->
  +           cmd  => fun(#{sock3 := Sock, local_sa := LSA} = _State) ->
                              case socket:bind(Sock, LSA) of
                                  {ok, _} ->
                                      ok;
  
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},
  
           %% *** Synchronize with the server ***
           #{desc => "order server start",
             cmd  => fun(#{server := Server}) ->
                             ev_start(Server),
                             ok
                     end},
           #{desc => "await server ready (init)",
             cmd  => fun(#{server := Server, local_sa := LSA} = State) ->
                             {ok, Port} = ev_await_ready(Server, server, init),
                             ServerSA = LSA#{port => Port},
                             {ok, State#{server_sa => ServerSA}}
                     end},
  
           %% *** Connect sequence ***
           #{desc => "order (server) start",
             cmd  => fun(#{sock1     := Sock1,
                           sock2     := Sock2,
                           sock3     := Sock3,
                           server_sa := SSA,
                           timeout   := To}) ->
                             Socks = [Sock1, Sock2, Sock3],
                             api_to_connect_tcp_await_timeout(Socks, To, SSA)
                     end},
  
           %% *** Terminate server ***
           #{desc => "order (server) terminate",
             cmd  => fun(#{server := Server} = _State) ->
                             ev_terminate(Server),
                             ok
                     end},
           #{desc => "await (server) down",
             cmd  => fun(#{server := Server} = State) ->
                             ev_await_termination(Server),
                             State1 = maps:remove(server,    State),
                             State2 = maps:remove(server_sa, State1),
                             {ok, State2}
                     end},
           #{desc => "close socket 3",
             cmd  => fun(#{sock3 := Sock} = State) ->
                             sock_close(Sock),
  