anchor.diff:  %% locally connected services that uses the same HTTP port to transmit
   %% their register_service, and message calls.
   
  -handle_call({rvi_call, register_remote_services, Args}, _From, _State) ->
  -    {_, _Services} = lists:keyfind(services, 1, Args),
  -    %% FIXME: Report all added services to the connected local services
  -    { ok, [ { status, rvi_common:json_rpc_status(ok)} ] };
  -
  -handle_call({rvi_call, unregister_remote_services, Args}, _From, _State) ->
  -    {_, _Services} = lists:keyfind(services, 1, Args),
  -    %% FIXME: Report all deleted services to the connected local services
  -    { ok, [ { status, rvi_common:json_rpc_status(ok)} ] };
  +handle_call({rvi_call, register_remote_services, Args}, _From, State) ->
  +    {_, Services} = lists:keyfind(services, 1, Args),
  +    {_, LocalServiceAddresses} = lists:keyfind(local_service_addresses, 1, Args),
  +    manage_remote_services("services_available", LocalServiceAddresses, Services),
  +    { reply, { ok, [ { status, rvi_common:json_rpc_status(ok)} ]}, State };
  +
  +handle_call({rvi_call, unregister_remote_services, Args}, _From, State) ->
  +    {_, Services} = lists:keyfind(services, 1, Args),
  +    {_, LocalServiceAddresses} = lists:keyfind(local_service_addresses, 1, Args),
  +    manage_remote_services("services_unavailable", LocalServiceAddresses, Services),
  +    { reply, {ok, [ { status, rvi_common:json_rpc_status(ok)} ] }, State };
   
   
   handle_call({rvi_call, handle_remote_message, Args}, _From, State) ->
  
positive.code: 
  
  handle_rpc("register_remote_services", Args) ->
      {ok, _Services} = rvi_common:get_json_element(["services"], Args),
      %% FIXME: Report all available services to the connected local services
      { ok, [ { status, rvi_common:json_rpc_status(ok)} ] };
  
  handle_rpc("unregister_remote_services", Args) ->
      {ok, _Services} = rvi_common:get_json_element(["services"], Args),
      %% FIXME: Report all deleted services to the connected local services
      { ok, [ { status, rvi_common:json_rpc_status(ok)} ] };
  
  handle_rpc("message", Args) ->
  
negative.code: 	    Err
      end.
  
  manage_remote_service(Cmd, LocalServiceAddress, Services) ->
      ?info("service_edge_rpc:manage_remote_service(~p, ~p, ~p): Called.", 
  		  [ Cmd, LocalServiceAddress, Services ]),
      
      dispatch_to_local_service(LocalServiceAddress, Cmd, 
  			      [ { services, Services }]),
      ok.
  
  
  %% Register the services listed in Services wit all 
  %% local services listed under LocalServices
  manage_remote_services(Cmd, LocalServiceAddresses, Services) ->
      ?info("service_edge_rpc:manage_remote_services(~p, ~p, ~p): Called.", 
  		  [ Cmd, LocalServiceAddresses, Services ]),
      
      lists:map(fun(LocalServiceAddress) -> 
  		      manage_remote_service(Cmd, LocalServiceAddress, Services)
  	      end, LocalServiceAddresses),
      { ok, [ { status, rvi_common:json_rpc_status(ok)} ] }.
      
      
  
  %%
  %% Handle a message, delivered from a locally connected service, that is
  