anchor.diff:  	    Index when is_integer(Index) ->
   		Addr = string:substr(HostT, 1, Index - 1),
   		{ok, AddrT} = inet_parse:ipv6_address(Addr),
  -		do_send(State#state.inet6_socketlist, AddrT, Port, Message)
  +		do_send(State#state.inet6_socketlist, SipSocket, AddrT, Port, Message)
   	end,
       {reply, {send_result, SendRes}, State};
   %%
   %% Host is not IPv6 reference (inside brackets)
   %%
  -handle_call({send, {Host, Port, Message}}, _From, State) when is_list(Host), is_integer(Port) ->
  -    SendRes = do_send(State#state.inet_socketlist, Host, Port, Message),
  +handle_call({send, SipSocket, Host, Port, Message}, _From, State) when is_record(SipSocket, sipsocket),
  +								       is_list(Host), is_integer(Port) ->
  +    SendRes = do_send(State#state.inet_socketlist, SipSocket, Host, Port, Message),
       {reply, {send_result, SendRes}, State}.
   
   
  
positive.code: 
  
  %%--------------------------------------------------------------------
  %% Function: do_send(SocketList, Host, Port, Message)
  %%           SocketList = list() of {Socket, SipSocket} tuple()
  %%           Host      = string()
  %%           Port      = integer()
  %%           Message   = term()
  %% Descrip.: Try sockets in SocketList until we find one that can send
  %%           to this destination, or they are all exhausted.
  %% Returns : {error, no_socket} | term(), send result
  %%--------------------------------------------------------------------
  do_send([{Socket, _SipSocket} | T], Host, Port, Message) ->
      case gen_udp:send(Socket, Host, Port, Message) of
  	{error, einval} ->
  	    %% destination address not valid for this socket, try next
  	    do_send(T, Host, Port, Message);
  	Res ->
  	    Res
      end;
  do_send([], _Host, _Port, _Message) ->
      {error, no_socket}.
  
negative.code: 
  
  %%--------------------------------------------------------------------
  %% Function: handle_call({send, SipSocket, Host, Port, Message}, ...)
  %%           SipSocket = sipsocket record(), prefered socket to use
  %%           Host      = string()
  %%           Port      = integer()
  %%           Message   = term()
  %% Descrip.: Send Message to Host:Port.
  %% Returns : {reply, Reply, State}
  %%           Reply = {send_result, Res}
  