anchor.diff:  %% Websocket iface 
   wse_register_service(Ws, Service ) ->
       ?debug("service_edge_rpc:wse_register_service(~p) service:     ~p", [ Ws, Service ]),
  -    register_service(Service, "ws:" ++ pid_to_list(Ws)).
  -
  -wse_message(Ws, ServiceName, Timeout, JSONParameters, CallingService) ->
  +    register_local_service(Service, "ws:" ++ pid_to_list(Ws)).
  +
  +wse_unregister_service(Ws, Service ) ->
  +    ?debug("service_edge_rpc:wse_unregister_service(~p) service:    ~p", [ Ws, Service ]),
  +    unregister_local_service(Service).
  +
  +wse_get_available_services(_Ws ) ->
  +    ?debug("service_edge_rpc:wse_get_available_services()"),
  +    { ok, Services }  = get_available_services(),
  +    { ok, [ { status, rvi_common:json_rpc_status(ok)},
  +	    { services, Services}] }.
  +
  +
  +wse_message(Ws, ServiceName, Timeout, JSONParameters) ->
       %% Parameters are delivered as JSON. Decode into tuple
       { ok, Parameters } = exo_json:decode_string(JSONParameters),
       ?debug("service_edge_rpc:wse_message(~p) ServiceName:          ~p", [ Ws, ServiceName ]),
       ?debug("service_edge_rpc:wse_message(~p) Timeout:         ~p", [ Ws, Timeout]),
  -    ?debug("service_edge_rpc:wse_message(~p) CallingService:  ~p", [ Ws, CallingService ]),
       ?debug("service_edge_rpc:wse_message(~p) Parameters:      ~p", [ Ws, Parameters ]),
  -    handle_local_message( ServiceName, Timeout,  [Parameters] , CallingService).
  +    handle_local_message( ServiceName, Timeout,  [Parameters]).
  +
  +%% Deprecated
  +wse_message(Ws, ServiceName, Timeout, JSONParameters, _CallingService) ->
  +    wse_message(Ws, ServiceName, Timeout, JSONParameters).
  +
  +    
   
   
   %% Handle calls received through regular gen_server calls, routed byh
  
positive.code:     announce_service_availability(Cmd, LocalServiceAddresses, Services, undefined).
  
  
  %% Announces the services listed in Services wit all 
  %% local services listed under LocalServices
  %% SkipAddress is a single address that, if found in LocalServiceAddresses,
  %% will not receive an announcement.
  
negative.code: 	%%
  	rvi_common:send_component_request(authorize, authorize_local_message,
  					  [
  					   {service_name, ServiceName}
  					  ],
  					  [ certificate, signature ]) of
  