anchor.diff:  %%           Status       = integer(), SIP status code
   %%           Reason       = string(), SIP reason phrase
   %%           ExtraHeaders = keylist record()
  -%%           RBody        = string(), response body 
  +%%           RBody        = string(), response body
   %% Descrip.: Ask a server transaction handler to send a response.
   %% Returns : ok    |
   %%           {error, E}
   %%           E = string(), describes the error
   %%--------------------------------------------------------------------
  -send_response_handler(TH, Status, Reason) when record(TH, thandler) ->
  +send_response_handler(TH, Status, Reason) when is_record(TH, thandler) ->
       send_response_handler(TH, Status, Reason, []).
   
  -send_response_handler(TH, Status, Reason, ExtraHeaders) when record(TH, thandler) ->
  +send_response_handler(TH, Status, Reason, ExtraHeaders) when is_record(TH, thandler) ->
       send_response_handler(TH, Status, Reason, ExtraHeaders, "").
   
  -send_response_handler(TH, Status, Reason, ExtraHeaders, RBody) when record(TH, thandler) ->
  +send_response_handler(TH, Status, Reason, ExtraHeaders, RBody) when is_record(TH, thandler) ->
       case catch gen_server:cast(TH#thandler.pid, {create_response, Status, Reason, ExtraHeaders, RBody}) of
   	ok ->
   	    ok;
  
positive.code: %%           THandler = thandler record()
  %%           E = string(), describes the error
  %%--------------------------------------------------------------------
  adopt_server_transaction(Request) when record(Request, request) ->
      case get_handler_for_request(Request) of
  	TH when record(TH, thandler) ->
  	    adopt_server_transaction_handler(TH);
  	Unknown ->
  	    {error, "unknown result from get_handler_for_request"}
      end.
  
  %% See adopt_server_transaction/1 above
  adopt_server_transaction_handler(TH) when record(TH, thandler) ->
      case catch gen_server:call(TH#thandler.pid, {set_report_to, self()}, 1000) of
  	{error, E} ->
  	    {error, E};
  
negative.code: %%           THandler = thandler record()
  %%           E = string(), describes the error
  %%--------------------------------------------------------------------
  get_server_handler_for_stateless_response(Response) when is_record(Response, response) ->
      TopVia = sipheader:topvia(Response#response.header),
      {_, Method} = sipheader:cseq(keylist:fetch("CSeq", Response#response.header)),
      case sipheader:get_via_branch(TopVia) of
  	Branch when is_list(Branch) ->
  	    case catch gen_server:call(transaction_layer, {get_server_transaction_handler_for_response, Branch, Method}, 1000) of
  		{error, nomatch} ->
  		    none;
  