anchor.diff:      Rs = maps:get(requests, S, #{}),
       S#{ requests => Rs#{ Kind => {Kind, From} } }.
   
  -drop_request(S, Kind) ->
  +remove_request_fld(S, Kind) ->
       Rs = maps:get(requests, S, #{}),
       S#{ requests => maps:remove(Kind, Rs) }.
   
  
positive.code: try_connect(Parent, Host, Port, Timeout) ->
      Res =
          try
              gen_tcp:connect(Host, Port, [binary, {reuseaddr, true}, {active, true}], Timeout)
          catch _E:R ->
              {error, R}
          end,
  
negative.code:         {ok, _}          -> gen_server:reply(From, ok);
          Err = {error, _} -> gen_server:reply(From, Err)
      end,
      remove_request_fld(S, ping).
  
  handle_ping(S, none, RemotePingObj) ->
      {PeerOk, S1} =
  