anchor.diff:  
   %% gen_server callbacks
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
  -
  --export([connect_to_remote/5]).
   
   -record(state, {socketlist}).
   
  
positive.code: handle_call({get_socket, Proto, Host, Port}, From, State) ->
      case get_socket_from_list(Host, Port, State#state.socketlist) of
  	none ->
  	    %% We must spawn a child process to take care of making a new connection
  	    %% since we can't risk this thread getting locked up.
  	    %P = sipserver:safe_spawn(fun connect_to_remote/4, [From, Proto, Host, Port]),
  	    %spawn(?MODULE, connect_to_remote, [Proto, Host, Port, From, self()]),
  	    tcp_connection:start_link(connect, Proto, Host, Port, From),
  	    logger:log(debug, "Sipsocket TCP: No cached '~p' connection to remote host ~s:~p, trying to connect",
  		       [Proto, Host, Port]),
  
negative.code: 	_ ->
  	    none
      end.
  