anchor.diff:  
   resolve_remote_service(RawService) ->
       Service = rvi_common:sanitize_service_string(RawService),
  -    ?info("service_discovery_rpc:resolve_remote_service(): RawService:      ~p", [RawService]),
  -    ?info("service_discovery_rpc:resolve_remote_service(): Cleaned Service: ~p", [Service]),
  +    ?debug("service_discovery_rpc:resolve_remote_service(): RawService:      ~p", [RawService]),
  +    ?debug("service_discovery_rpc:resolve_remote_service(): Cleaned Service: ~p", [Service]),
       case resolve_service(?REMOTE_SERVICE_TABLE, Service) of
   	{ok, NetworkAddress } ->
   	    {ok, [ { status, rvi_common:json_rpc_status(ok) },
  
positive.code: 		      }),
  
      ets:delete(?REMOTE_ADDRESS_TABLE, NetworkAddress),
      case Svcs of 
  	[] ->
  	    true;
  	_ ->
  	    rvi_common:send_component_request(schedule, unregister_remote_services, 
  				      [
  				       { services, SvcNames }
  
negative.code:     %% Delete all services registered under the given address.
      Svcs = ets:lookup(?REMOTE_ADDRESS_TABLE, NetworkAddress),
  
      %% We now have a bunch of service records, convert them to a list of service
      %% names and send them of to schedule for deregistration
      AllSvcNames = lists:foldr(fun(#service_entry {  service = SvcName }, Acc) -> 
  				      [SvcName | Acc]
  			      end, [], Svcs),
  
      ?info("service_discovery_rpc:unregister_remote_services_by_address(): ~p -> ~p", 
  	  [NetworkAddress, AllSvcNames]),
  
      %% We need to filter AllSvcNames to remove all service entries that have
      %% been registered under another name. 
      %% We do this by creating a list of all matching entries associated
      %% with a network address not matching the disconnected NetworkAddress
      %%
      %% See issue https://github.com/PDXostc/rvi/issues/14 for details
      FilterSvc =
  	lists:foldr(
  	  fun(Service, Acc) -> 
  
  		  %% Lookup the service in the service table.
  		  case ets:lookup(?REMOTE_SERVICE_TABLE, Service) of
  
  		      %% Not found. Do not filter out.
  		      [] ->
  			  Acc;
  
  		      %% We found or own entry, tiet to the disconnected address.
  		      %% Do not add to addresses to be removed.
  		      [ #service_entry { network_address = NetworkAddress } ] ->
  			  Acc;
  
  		      %% We found an entry that does not the disconnected
  		      %% network address. This one should be filtered out
  		      [ _ ] ->
  			  [ Service | Acc ]
  
  		  end 
  	  end, [], AllSvcNames),
      
      SvcNames = AllSvcNames -- FilterSvc,
  
  
      case FilterSvc of
  	[] -> ok;
  
  	_ ->
  	    ?info("service_discovery_rpc:unregister_remote_services_by_address(): Resurrected services: ~p", 
  		  [FilterSvc]),
  
  	    ?info("service_discovery_rpc:unregister_remote_services_by_address(): Filtered services to be deleted: ~p", 
  		  [SvcNames])
      end,
      
  
      %% Delete any addresses stored with an empty service name,
      %% installed with register_remote_service/1, since we now have at
  