anchor.diff:  
       ?P("[csock 1] await reply message 3"),
       receive
  -        {udp, CSock, _, _, <<"hopp">>} ->
  -            ?P("received expected reply message 3")
  +        {udp, CSock1, _, _, <<"hopp">>} ->
  +            ?P("received expected reply message 3"),
  +            ok;
  +
  +        {'EXIT', Server, SReason3} ->
  +            ?P("received unexpected server exit (3):"
  +               "~n.     ~p", [SReason3]),
  +            ct:fail({unexpected_server_exit, 3, SReason3})
  +
  +    after 5000 ->
  +            ?P("[csock 1] receive (2) timeout:"
  +               "~n      ~p", [mq()]),
  +            ct:fail(receive_timeout)
  +
       end,
   
   
  
positive.code:     ?P("[csock 1] await reply message 1"),
      receive
          {udp, CSock1, _, _, <<"hopp">>} ->
              ?P("[csock 1] received expected reply message 1")
      after 5000 ->
              ?P("receive (1) timeout:"
                 "~n      ~p", [mq()]),
  
negative.code:     end,
      
      ?P("cleanup"),
      (catch gen_udp:close(CSock1)),
      (catch gen_udp:close(CSock2)),
  
      ?P("done"),
      ok.
  