anchor.diff:  %%--------------------------------------------------------------------
   get_branch_from_handler(TH) when is_record(TH, thandler) ->
       TPid = TH#thandler.pid,
  -    case catch gen_server:call(TPid, {get_branch}, 500) of
  +    case catch gen_server:call(TPid, {get_branch}, ?STORE_TIMEOUT) of
   	{ok, Branch} ->
   	    Branch;
   	_ ->
  
positive.code: %%           Pid = pid()
  %%           E   = string()
  %%--------------------------------------------------------------------
  start_client_transaction(Request, SocketIn, Dst, Branch, Timeout, Parent) ->
      %% XXX we probably want a shorter timeout on this, but since we send out the initial request
      %% in clienttransaction:init() it can take some time (if a TCP connection has to be established
      %% first etc).
      case catch gen_server:call(transaction_layer, {start_client_transaction, Request, SocketIn,
  						   Dst, Branch, Timeout, Parent}, 10000) of
  	{error, E} ->
  	    {error, E};
  	{ok, Pid} ->
  	    Pid;
  	Unknown ->
  	    logger:log(debug, "Transaction layer: Failed starting client transaction, gen_server call result :~n~p",
  		       [Unknown]),
  	    {error, "Transaction layer failure"}
      end.
  
  %%--------------------------------------------------------------------
  
negative.code: %%--------------------------------------------------------------------
  %% Macros
  %%--------------------------------------------------------------------
  %% Wake up every seven seconds to remove expired transactions
  -define(TIMEOUT, 7 * 1000).
  -define(STORE_TIMEOUT, 2500).
  -define(STATELESS_STORE_TIMEOUT, 1000).
  
  %%====================================================================
  %% External functions
  