anchor.diff:  viaproto2proto("SIP/2.0/TLS") -> tls;
   viaproto2proto("SIP/2.0/UDP") -> udp.
   
  -is_good_socket(Socket) when record(Socket, sipsocket) ->
  +is_good_socket(Socket) when is_record(Socket, sipsocket) ->
       case util:safe_is_process_alive(Socket#sipsocket.pid) of
   	{true, _} ->
   	    true;
  
positive.code: %%%-------------------------------------------------------------------
  %%% File    : sipsocket.erl
  %%% Author  : Fredrik Thulin <ft@it.su.se>
  %%% Description : Transport layer processes supervisor.
  %%%
  %%% Created : 21 Mar 2004 by Fredrik Thulin <ft@it.su.se>
  %%%-------------------------------------------------------------------
  
negative.code: 
  %%--------------------------------------------------------------------
  %% Function: send(Socket, Proto, Host, Port, Message)
  %%           Socket  = sipsocket record()
  %%           Proto   = atom(), (at least tcp|tcp6|udp|udp6|tls)
  %%           Host    = string()
  %%           Port    = integer()
  %%           Message = term()
  %% Descrip.: Locate a sipsocket module through the Socket record(),
  %%           and then ask that sipsocket module to send Message to
  %%           Host, port Port using protocol Proto. Currently, none of
  