anchor.diff:  %%           InPortNo = integer()
   %%           Packet   = list()
   %% Descrip.: Handle data received (as a signal) from one of our
  -%%           sockets. Spawn sipserver:process() on each message.
  +%%           sockets.
   %% Returns : {noreply, State}
   %%--------------------------------------------------------------------
   handle_info({udp, Socket, IPlist, InPortNo, Packet}, State) when is_integer(InPortNo) ->
  
positive.code: send(SipSocket, Proto, _Host, _Port, _Message)
    when is_record(SipSocket, sipsocket), SipSocket#sipsocket.proto /= Proto ->
      {error, "Protocol mismatch"};
  send(SipSocket, Proto, Host, Port, Message) when is_record(SipSocket, sipsocket), 
  						 is_integer(Port), is_atom(Proto),
  						 Proto == udp; Proto == udp6 ->
      Pid = SipSocket#sipsocket.pid,
  
negative.code: 	{ok, Socket} ->
  	    Local = get_localaddr(Socket, "0.0.0.0"),
  	    SipSocket = #sipsocket{module=sipsocket_udp, proto=udp, pid=self(), data={Local, none}},
  	    NewSocketList = socketlist:add({listener, udp, Port}, self(), udp, Local, none, SipSocket,
  					   0, State#state.socketlist),
  	    start_listening(T, Port, State#state{socket=Socket, socketlist=NewSocketList});
  	{error, Reason} ->
  