anchor.diff:  %% Returns : void()
   %%--------------------------------------------------------------------
   start_link(SocketModule, Socket, Local, Remote, SipSocket) ->
  -    State = #state{socketmodule=SocketModule, socket=Socket, parent=self(),
  -		   local=Local, remote=Remote, sipsocket=SipSocket},
  +    State = #state{socketmodule	= SocketModule,
  +		   socket	= Socket,
  +		   parent	= self(),
  +		   local	= Local,
  +		   remote	= Remote,
  +		   sipsocket	= SipSocket
  +		  },
   
       %% Create origin string for logging the source of received frames
       {IP, Port} = State#state.remote,
  -    Origin = #siporigin{proto=SipSocket#sipsocket.proto, addr=IP, port=Port, receiver=self(), sipsocket=SipSocket},
  +    Origin = #siporigin{proto		= SipSocket#sipsocket.proto,
  +			addr		= IP,
  +			port		= Port,
  +			receiver	= self(),
  +			sipsocket	= SipSocket
  +		       },
       OriginStr = sipserver:origin2str(Origin),
   
  -    Recv = #recv{origin_str=OriginStr},
  +    Recv = #recv{origin_str = OriginStr},
       Pid = spawn_link(?MODULE, recv_loop, [State, Recv]),
       Pid.
   
  
positive.code: 	  local,
  	  remote,
  	  sipsocket,
  	  linked=no
  	 }).
  
  -record(recv, {
  	  msg_stack=[],		%% First-in-last-out stack of received frames (messages)
  	  frame = <<>>,		%% The current frame
  
  	  parsed,		%% undefined | request record() | response record()
  
negative.code: 		    ok;
  		E ->
  		    logger:log(error, "TCP receiver: Closing SSL socket ~p failed : ~p",
  			       [Socket, E])
  	    end,
  	    gen_server:cast(Parent, {close, self()});
  	quit ->
  	    ssl:close(Socket),
  	    ok;
  	NewRecv when is_record(NewRecv, recv) ->
  	    recv_loop(State, NewRecv)
  