anchor.diff:  
   %%--------------------------------------------------------------------
   %% Function: handle_info/2
  -%% Description: Handling all non call/cast messages
  -%% Returns: {noreply, State}          |
  -%%          {noreply, State, Timeout} |
  -%%          {stop, Reason, State}            (terminate/2 is called)
  -%%--------------------------------------------------------------------
  -
  +%% Descrip.: Handling all non call/cast messages
  +%% Returns : {noreply, State}          |
  +%%           {noreply, State, Timeout} |
  +%%           {stop, Reason, State}            (terminate/2 is called)
  +%%--------------------------------------------------------------------
  +
  +%%--------------------------------------------------------------------
  +%% Function: handle_info(timeout, State)
  +%% Descrip.: Wake up and remove all expired transactions from our
  +%%           list. DOES tell transaction handlers that it is time to
  +%%           terminate, if they are found to be expired.
  +%% Returns : {noreply, State, ?TIMEOUT}
  +%%--------------------------------------------------------------------
   handle_info(timeout, State) ->
       NewL = transactionstatelist:delete_expired(State#state.tstatelist),
       {noreply, State#state{tstatelist=NewL}, ?TIMEOUT};
   
  +%%--------------------------------------------------------------------
  +%% Function: handle_info({'EXIT', Pid, Reason}, State)
  +%%           Pid    = pid()
  +%%           Reason = normal | term()
  +%% Descrip.: Trap exit signals from client/server transaction handlers
  +%%           and act on them. Log if they exit with an error, and
  +%%           remove them from our list of ongoing transactions.
  +%% Returns : {noreply, State, ?TIMEOUT}
  +%%--------------------------------------------------------------------
   handle_info({'EXIT', Pid, Reason}, State) ->
       case Reason of
   	normal -> logger:log(debug, "Transaction layer: Received normal exit-signal from process ~p", [Pid]);
  
positive.code:     end,
      ok.
  
  debug_show_transactions() ->
      gen_server:cast(transaction_layer, {debug_show_transactions, self()}),
      ok.
  
negative.code: 	    {error, "Transaction layer failure"}
      end.
  
  %%--------------------------------------------------------------------
  %% Function: store_to_tag(Request, ToTag)
  %%           Request  = request record()
  %%           ToTag    = string()
  %% 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_to_tag(Request, ToTag) when record(Request, request) ->
      case catch gen_server:call(transaction_layer, {store_to_tag, Request, ToTag}, 2500) of
  	{error, E} ->
  