anchor.diff:  	%% status returned was an error code.
   	{ Other, _Result } ->
   	    ?warning("service_edge:forward_to_local(): ~p:~p Failed: ~p.", 
  -		     [URL, ServiceName, Other]),
  +		     [URL, SvcName, Other]),
   	    [not_found, -1];
   
   	Other ->
   	    ?warning("service_edge:forward_to_local(): ~p:~p Unknown error: ~p.", 
  -		     [URL, ServiceName, Other]),
  +		     [URL, SvcName, Other]),
   	    [internal, -1]
       end.
       
   
  -announce_service_availability(Available, Service) ->
  +announce_service_availability(Available, SvcName) ->
       Cmd = case Available of
   	      available -> services_available;
   	      unavailable -> services_unavailable
  
positive.code:     {reply, service_discovery_rpc:get_services(St#st.cs), St};
  
  handle_call({ rvi, handle_local_message, 
  	      [ServiceName, Timeout, Parameters] }, _From, St) ->
      ?debug("service_edge_rpc:local_msg: service_name:    ~p", [ServiceName]),
      ?debug("service_edge_rpc:local_msg: timeout:         ~p", [Timeout]),
      ?debug("service_edge_rpc:local_msg: parameters:      ~p", [Parameters]),
  
  
negative.code: 	    { services, Services}] }.
  
  
  wse_message(Ws, SvcName, Timeout, JSONParameters) ->
      %% Parameters are delivered as JSON. Decode into tuple
      { ok, Parameters } = exo_json:decode_string(JSONParameters),
      ?debug("service_edge_rpc:wse_message(~p) SvcName:          ~p", [ Ws, SvcName ]),
      ?debug("service_edge_rpc:wse_message(~p) Timeout:         ~p", [ Ws, Timeout]),
      ?debug("service_edge_rpc:wse_message(~p) Parameters:      ~p", [ Ws, Parameters ]),
  
      [ Res, TID ] = gen_server:call(?SERVER, { rvi, handle_local_message, 
  					      [ SvcName, Timeout, Parameters]}),
  
      { ok, [ { status, rvi_common:json_rpc_status(Res) }, 
  	    { transaction_id, TID} ] }.
  
  %% Deprecated
  wse_message(Ws, SvcName, Timeout, JSONParameters, _CallingService) ->
      wse_message(Ws, SvcName, Timeout, JSONParameters).
  
  
  
  