anchor.diff:  await_server_listening(Server, Client) ->
       receive
           {listening, Server} ->
  -            p("received listening message from server [~p] => "
  +            p("[await-server-listening] "
  +              "received listening message from server [~p] => "
                 "send continue to client [~p]"
                 "~n", [Server, Client]),
               Client ! {continue, self()},
               ok;
   	{'EXIT', Server, SReason} ->
  +            p("[await-server-listening] unexpected server (~p) exit: "
  +              "~n       ~p"
  +              "~n", [Server, SReason]),
   	    exit({server_crash, SReason});
   	{'EXIT', Client, CReason} ->
  +            p("[await-server-listening] "
  +              "unexpected client (~p) exit: "
  +              "~n       ~p"
  +              "~n", [Client, CReason]),
   	    exit({client_crash, CReason})
       after 5000 ->
               %% There is no normal reason why this should take any time.
  
positive.code: await_client_blocked(Server, Client) ->
      receive
          {blocked, Client} ->
              p("received blocked message from client [~p] => "
                "send continue to server [~p]~n", [Client, Server]),
              Server ! {continue, self()},
              ok;
  	{'EXIT', Client, CReason} ->
  	    exit({client_crash, CReason});
  	{'EXIT', Server, SReason} ->
  	    exit({server_crash, SReason})
      after 5000 ->
              %% There is no normal reason why this should take any time.
  
negative.code: %%
  %% %CopyrightBegin%
  %% 
  %% Copyright Ericsson AB 2000-2022. All Rights Reserved.
  %% 
  %% Licensed under the Apache License, Version 2.0 (the "License");
  %% you may not use this file except in compliance with the License.
  