anchor.diff:  	    {error, "Transaction handler failure"}
       end.
   
  +%%--------------------------------------------------------------------
  +%% Function: send_proxy_response_handler(TH, Response)
  +%%           TH           = thandler record(), transaction handler
  +%%           Response     = response record()
  +%% Descrip.: Ask a server transaction handler to proxy a response.
  +%%           When we proxy (as opposed to send) a response, we do some
  +%%           additional processing like removing the top Via header.
  +%% Returns : ok    |
  +%%           {error, E}
  +%%           E = string(), describes the error
  +%%--------------------------------------------------------------------
   send_proxy_response_handler(TH, Response) when record(TH, thandler), record(Response, response) ->
       case gen_server:cast(TH#thandler.pid, {forwardresponse, Response}) of
   	ok ->
  
positive.code: 
  %%--------------------------------------------------------------------
  %% Function: handle_cast/2
  %% Description: Handling cast messages
  %% Returns: {noreply, State}          |
  %%          {noreply, State, Timeout} |
  %%          {stop, Reason, State}            (terminate/2 is called)
  %%--------------------------------------------------------------------
  handle_cast({unregister_pid, Pid}, State) ->
      NewL = transactionstatelist:delete_using_pid(Pid, State#state.tstatelist),
      {noreply, State#state{tstatelist=NewL}, ?TIMEOUT};
  
  handle_cast({debug_show_transactions, FromPid}, State) ->
      logger:log(debug, "Transaction layer: Pid ~p asked me to show all ongoing transactions :~n~p",
  	       [FromPid, transactionstatelist:debugfriendly(State#state.tstatelist)]),
      {noreply, State, ?TIMEOUT};
  
  handle_cast({quit}, State) ->
      logger:log(debug, "Transaction layer: Received signal to quit"),
      {stop, normal, State};
  
negative.code: %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: init([AppModule, Mode])
  %%           AppModule = atom(), name of Yxa application
  %%           Mode      = stateful | stateless
  %% Descrip.: Initiates the server
  %% Returns : {ok, State}          |
  %%           {ok, State, Timeout} |
  %%           ignore               |
  %%           {stop, Reason}
  %%--------------------------------------------------------------------
  init([AppModule, Mode]) ->
      process_flag(trap_exit, true),
  