anchor.diff:  
   	{ ok, ok, [ NetworkAddress], _SDJSON } -> 
   	    %% Tell data link to bring up a communicationc hannel.
  -	    rvi_common:send_component_request(data_link, setup_data_link, 
  +	    case rvi_common:send_component_request(data_link, setup_data_link, 
   					      [
   					       {service, Target}, 
   					       {network_address, NetworkAddress}
  -					      ]),
  -	    ok;
  +					      ]) of
  +		{ok, already_connected, _} ->
  +		    already_connected;
  +		Que -> 
  +		    ?info("    schedule:bring_up_data_link() Que:~p.", [Que]),
  +		    ok
  +	    end;
   
   	{ok, not_found, _, _} ->
  -	    ?debug("    schedule:bring_up_data_link() Failed to resolve remote Service: ~p. Service not found.", 
  +	    ?info("    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", 
  +	    ?info("    schedule:bring_up_data_link() Failed to resolve remote Service: ~p: ~p", 
   			      [ Target, Err ]),
   	    err
       end.
  
positive.code: %%  if messages for the given service are now ready to be sent.
  %%
  service_available(Target, NetworkAddress, St) ->
      ?debug("    schedule:service_available(): target:            ~p", [ Target ]),
      ?debug("    schedule:service_available(): network_address:   ~p", [ NetworkAddress ]),
  								    
      case find_service(Target, St) of 
  	not_found -> 	%% The given service does not exist, create it.
  
negative.code: 			 queue = Queue } = Svc, 
  	      NetworkAddress) ->
  
      ?info("    schedule:send_messages(): target:            ~p", [Target]),
      ?info("    schedule:send_messages(): network_address:   ~p", [NetworkAddress]),
      ?info("    schedule:send_messages(): queue_size:        ~p", [queue:len(Queue)]),
  
      case queue:out(Queue) of
  	{{ value, Msg }, NQ } ->
  