anchor.diff:  %% are the only access paths in.
   %%
   handle_rpc("register_service", Args) ->
  -    {ok, Service} = rvi_common:get_json_element(["service"], Args),
  +    {ok, SvcName} = rvi_common:get_json_element(["service"], Args),
       {ok, URL} = rvi_common:get_json_element(["network_address"], Args),
       [ok, FullSvcName ] = gen_server:call(?SERVER, 
   					 { rvi, register_local_service, 
  -					   [ Service, URL]}),
  +					   [ SvcName, URL]}),
   
       {ok, [ {status, rvi_common:json_rpc_status(ok) }, { service, FullSvcName }]};
   
   
   handle_rpc("unregister_service", Args) ->
  -    {ok, Service} = rvi_common:get_json_element(["service"], Args),
  -    gen_server:call(?SERVER, { rvi, unregister_local_service, [ Service]}),
  +    {ok, SvcName} = rvi_common:get_json_element(["service"], Args),
  +    gen_server:call(?SERVER, { rvi, unregister_local_service, [ SvcName]}),
       {ok, [ { status, rvi_common:json_rpc_status(ok) }]};
   
   
  
positive.code: 
  
  handle_rpc("message", Args) ->
      {ok, ServiceName} = rvi_common:get_json_element(["service_name"], Args),
      {ok, Timeout} = rvi_common:get_json_element(["timeout"], Args),
      {ok, Parameters} = rvi_common:get_json_element(["parameters"], Args),
      [ Res, TID ] = gen_server:call(?SERVER, { rvi, handle_local_message, 
  					      [ ServiceName, Timeout, Parameters]}),
  
      {ok, [ { status, rvi_common:json_rpc_status(Res) },
  	   { transaction_id, TID } ]};
  
negative.code: %% JSON-RPC entry point
  %% Called by local exo http server
  handle_notification("handle_local_timeout", Args) ->
      {ok, SvcName} = rvi_common:get_json_element(["service"], Args),
      {ok, TransactionID} = rvi_common:get_json_element(["transaction_id"], Args),
      gen_server:cast(?SERVER, { rvi, handle_local_timeout, 
  			       [ SvcName, TransactionID]}),
  
      ok;
  
  