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: 						 is_integer(Port), is_atom(Proto),
  						 Proto == udp; Proto == udp6 ->
      Pid = SipSocket#sipsocket.pid,
      case catch gen_server:call(Pid, {send, {Host, Port, Message}}) of
  	{send_result, Res} ->
  	    Res;
  	Unknown ->
  
negative.code: %%--------------------------------------------------------------------
  %% Records
  %%--------------------------------------------------------------------
  -record(state, {inet_socketlist  = [],	%% list() of {Socket, SipSocket}
  		inet6_socketlist = [],	%% list() of {Socket, SipSocket}
  		socketlist
  	       }).
  
  