anchor.diff:  		   {accept, data_link_bert_rpc_rpc}
   		  ]} | TmpBertOpts],
   	    ?debug("    data_link_bert_rpc_rpc:init(): Starting BERT-RPC with ~p", [ BertOpts ]),
  -	    case supervisor:start_child(data_link_bert_rpc_rpc_sup, 
  +	    case supervisor:start_child(data_link_bert_rpc_sup, 
   					{ data_link_bert_rpc_rpc, 
  -					  { bert_rpc_rpc_exec, start_link, [ BertOpts ] },
  -					  permanent, 5000, worker, [bert_rpc_rpc_exec] }) of
  +					  { bert_rpc_exec, start_link, [ BertOpts ] },
  +					  permanent, 5000, worker, [bert_rpc_exec] }) of
   
   		{ ok, _ } ->
  +		    ?notice("---- RVI Node External Address: ~s", 
  +			    [ application:get_env(rvi, node_address, undefined)]),
  +
   		    case rvi_common:get_component_config(data_link, exo_http_opts) of
   			{ ok, ExoHttpOpts } ->
  -			    exoport_exo_http:instance(data_link_bert_rpc_rpc_sup, 
  +			    exoport_exo_http:instance(data_link_bert_rpc_sup, 
   						      data_link_bert_rpc_rpc,
   						      ExoHttpOpts),
   			    ok;
  
positive.code:     ?debug("    data_link_bert_rpc_rpc:send_data(): Remote Address: ~p", [ RemoteAddress]),
      ?debug("    data_link_bert_rpc_rpc:send_data(): Remote Port:    ~p", [ RemotePort]),
      ?debug("    data_link_bert_rpc_rpc:send_data(): Data:           ~p", [ Data]),
      case  nice_bert_rpc_rpc:cast_host(RemoteAddress, RemotePort, 
  				  [tcp], 
  				  data_link, receive_data, [Data]) of
  	Res ->
  
negative.code: 	    ?debug("    data_link_bert_rpc_rpc:setup_data_link(): ---------------"),
  	    ?debug("    data_link_bert_rpc_rpc:setup_data_link():    Sending ping()"),
  	    ?debug("    data_link_bert_rpc_rpc:setup_data_link(): ---------------"),
  	    nice_bert_rpc:cast_host(RemoteAddress, RemotePort, 
  				    [tcp], data_link, ping, 
  				    [{LocalAddress, LocalPort}, 
  				     {RemoteAddress, RemotePort}]),
  