anchor.diff:  handle_cast({rvi, service_unavailable, [SvcName, _DataLinkModule] }, St) ->
       announce_service_availability(unavailable, SvcName),
       { noreply, St };
  +
   
   		      
   handle_cast({rvi, handle_remote_message, 
  
positive.code: 
  %% Dispatch to regular JSON-RPC over HTTP.
  dispatch_to_local_service(URL, Command, Args) ->
      ?debug("dispatch_to_local_service():  Command:         ~p",[ CmdStr]),
      ?debug("dispatch_to_local_service():  Args:            ~p",[ Args]),
      ?debug("dispatch_to_local_service():  URL:             ~p",[ URL]),
      CmdStr = atom_to_list(Command),
      Res = rvi_common:send_json_request(URL, CmdStr, Args),
      ?debug("dispatch_to_local_service():  Result:          ~p",[ Res]),
      Res.
  
negative.code: 
  
  dispatch_to_local_service([ $w, $s, $: | WSPidStr], services_available, 
  			  {struct, [{ services, { array, Services}}]} ) ->
      ?info("service_edge:dispatch_to_local_service(service_available, websock, ~p): ~p", 
  	  [ WSPidStr,  Services]),
      wse:call(list_to_pid(WSPidStr), wse:window(),
  	     "services_available", 
  	     [ "services", Services ]),
      ok;
  
  dispatch_to_local_service([ $w, $s, $: | WSPidStr], services_unavailable, 
  			  {struct, [{ services, { array, Services}}]} ) ->
      ?info("service_edge:dispatch_to_local_service(service_unavailable, websock, ~p): ~p", 
  	  [ WSPidStr, Services]),
  
      wse:call(list_to_pid(WSPidStr), wse:window(),
  	     "services_unavailable", 
  	     [ "services", Services ]),
  