anchor.diff:  send_message(NetworkAddress, Target, Timeout, 
   	     Parameters, Signature, Certificate) ->
   
  -    ?debug("    schedule:send_message(): network_address: ~p", [NetworkAddress]),
  -    ?debug("    schedule:send_message(): target:          ~p", [Target]),
  -    ?debug("    schedule:send_message(): timeout:         ~p", [Timeout]),
  -    ?debug("    schedule:send_message(): parameters:      ~p", [Parameters]),
  -    ?debug("    schedule:send_message(): signature:       ~p", [Signature]),
  -    ?debug("    schedule:send_message(): certificate:     ~p", [Certificate]),
  +    ?info("    schedule:send_message(): network_address: ~p", [NetworkAddress]),
  +    ?info("    schedule:send_message(): target:          ~p", [Target]),
  +    ?info("    schedule:send_message(): timeout:         ~p", [Timeout]),
  +    ?info("    schedule:send_message(): parameters:      ~p", [Parameters]),
  +    ?info("    schedule:send_message(): signature:       ~p", [Signature]),
  +    ?info("    schedule:send_message(): certificate:     ~p", [Certificate]),
   
       case rvi_common:send_component_request(
   	   protocol, send_message, 
  
positive.code: 
  	{ ok, ok, [ NetworkAddress], _SDJSON } -> 
  	    %% Tell data link to bring up a communicationc hannel.
  	    rvi_common:send_component_request(data_link, setup_data_link, 
  					      [
  					       {service, Target}, 
  					       {network_address, NetworkAddress}
  					      ]),
  	    ok;
  
  	{ok, not_found, _, _} ->
  	    ?debug("    schedule:bring_up_data_link() Failed to resolve remote Service: ~p. Service not found.", 
  			      [ Target ]),
  	    not_found;
  		    
  	Err ->  
  	    ?debug("    schedule:bring_up_data_link() Failed to resolve remote Service: ~p: ~p", 
  			      [ Target, Err ]),
  	    err
      end.
  
negative.code: 			    queue = Queue } | NewSvcs ] }.
      
  modify_service_rec(SvcRec, St) ->
      ?info("    schedule:modify_service(rec): Target:           ~p", [ SvcRec#service.target]),
      ?info("    schedule:modify_service(rec): Queue:            ~p", [ SvcRec#service.queue]),
      ?info("    schedule:modify_service(rec): St:               ~p", [ St]),
  
      %% Delete old service
      NewSvcs = lists:keydelete(SvcRec#service.target, #service.target, St#st.services),
  