anchor.diff:  %%           {error, E}
   %%           E = string(), description of error
   %%--------------------------------------------------------------------
  -store_to_tag(Request, ToTag) when is_record(Request, request) ->
  -    case catch gen_server:call(transaction_layer, {store_to_tag, Request, ToTag}, 2500) of
  +store_to_tag(Request, ToTag) when is_record(Request, request), is_list(ToTag) ->
  +    case catch gen_server:call(transaction_layer, {store_to_tag, Request, ToTag}, ?STORE_TIMEOUT) of
   	{error, E} ->
   	    {error, E};
   	{ok} ->
   	    ok;
   	Unknown ->
   	    logger:log(debug, "Transaction layer: Failed storing To: tag, gen_server call result :~n~p",
  +		       [Unknown]),
  +	    {error, "Transaction layer failure"}
  +    end.
  +
  +%%--------------------------------------------------------------------
  +%% Function: set_result(Request, ToTag)
  +%%           Request  = request record()
  +%%           ToTag    = string()
  +%% Descrip.: Set the informational result parameter of a transaction.
  +%%           This 'result' value is only used for debugging/
  +%%           informational purposes.
  +%% Returns : ok         |
  +%%           {error, E}
  +%%           E = string(), description of error
  +%%--------------------------------------------------------------------
  +set_result(Request, Value) when is_record(Request, request), is_list(Value) ->
  +    case catch gen_server:call(transaction_layer, {set_result, Request, Value}, ?STORE_TIMEOUT) of
  +	{error, E} ->
  +	    {error, E};
  +	{ok} ->
  +	    ok;
  +	Unknown ->
  +	    logger:log(debug, "Transaction layer: Failed storing transaction result, gen_server call result :~n~p",
  +		       [Unknown]),
  +	    {error, "Transaction layer failure"}
  +    end.
  +
  +%%--------------------------------------------------------------------
  +%% Function: store_appdata(Request, ToTag)
  +%%           Request  = request record()
  +%%           Value    = term()
  +%% Descrip.: Store the to-tag we use when sending non-2xx responses in
  +%%           INVITE server transactions. We need to do this to
  +%%           correctly match ACK to the server transaction.
  +%% Returns : ok         |
  +%%           {error, E}
  +%%           E = string(), description of error
  +%%--------------------------------------------------------------------
  +store_appdata(Request, Value) when is_record(Request, request) ->
  +    case catch gen_server:call(transaction_layer, {store_appdata, Request, Value}, ?STORE_TIMEOUT) of
  +	{error, E} ->
  +	    {error, E};
  +	{ok} ->
  +	    ok;
  +	Unknown ->
  +	    logger:log(debug, "Transaction layer: Failed storing appdata, gen_server call result :~n~p",
   		       [Unknown]),
   	    {error, "Transaction layer failure"}
       end.
  
positive.code: 	normal -> logger:log(debug, "Transaction layer: Received normal exit-signal from process ~p", [Pid]);
  	_ -> logger:log(error, "Transaction layer: =ERROR REPORT==== Received non-normal exit signal from process ~p :~n~p", [Pid, Reason])
      end,
      NewState = case transactionstatelist:get_list_using_pid(Pid, State#state.tstatelist) of
  		   none ->
  		       logger:log(debug, "Transaction layer: Received exit signal from ~p not in my list. Transactionlist is :~n~p",
  				  [Pid, transactionstatelist:debugfriendly(State#state.tstatelist)]),
  		       State;
  		   L when is_record(L, transactionstatelist) ->
  		       NewL = transactionstatelist:delete_using_pid(Pid, State#state.tstatelist),
  		       logger:log(debug, "Transaction layer: Deleting ~p entry(s) from transactionlist :~n~p~n(new list is ~p entry(s))",
  				  [transactionstatelist:get_length(L), transactionstatelist:debugfriendly(L), transactionstatelist:get_length(NewL)]),
  		       %%logger:log(debug, "Transaction layer: Extra debug: Transactionlist is now :~n~p", [transactionstatelist:debugfriendly(NewL)]),
  		       State#state{tstatelist=NewL};
  		   Unknown ->
  		       logger:log(error, "Transaction layer: Unknown result returned from get_list_using_pid :~n~p",
  				  [Unknown]),
  		       State
  	       end,
      {noreply, NewState, ?TIMEOUT};
  
  handle_info(Msg, State) ->
      logger:log(error, "Transaction layer: Received unknown gen_server info :~n~p", [Msg]),
  
negative.code: %%           Pid       = pid()
  %%           E         = string(), description of error
  %%--------------------------------------------------------------------
  handle_call({sXtart_client_transaction, Request, SocketIn, Dst, Branch, Timeout, Parent}, _From, State)
    when is_record(Request, request), is_record(Dst, sipdst), is_list(Branch), is_integer(Timeout),
         is_pid(Parent); Parent == none ->
      T1 = erlang:now(),
      {Method, URI} = {Request#request.method, Request#request.uri},
      Reply =
  	case transactionstatelist:get_client_transaction(Method, Branch) of
  	    none ->
  		case clienttransaction:start_link(Request, SocketIn, Dst, Branch, Timeout, Parent) of
  		    {ok, CPid} ->
  			RegBranch = sipheader:remove_loop_cookie(Branch),
  			Desc = lists:flatten(
  				 io_lib:format("~s: ~s ~s (dst ~s)", [RegBranch, Method,
  								      sipurl:print(URI), sipdst:dst2str(Dst)])),
  			ok = transactionstatelist:add_client_transaction(Method, RegBranch, CPid, Desc),
  			{reply, {ok, CPid}, State, ?TIMEOUT};
  		    _ ->
  			{reply, {error, "Failed starting client transaction"}, State, ?TIMEOUT}
  		end;
  	    _ ->
  		logger:log(error, "Transaction layer: Can't start duplicate client transaction"),
  		{reply, {error, "Transaction already exists"}, State, ?TIMEOUT}
  	end,
      T2 = erlang:now(),
      S = io_lib:format("gen_server:call({start_client_transaction, ...}) (~s ~s)",
  		      [Method, sipurl:print(URI)]),
      log_time_consumption(T1, T2, 200, 100, S),
      Reply;
  
  %%--------------------------------------------------------------------
  %% Function: handle_call({store_to_tag, Request, ToTag}, From, State)
  %%           Request  = request record()
  %%           ToTag    = string()
  %% Descrip.: Store the to-tag we use when sending non-2xx responses in
  