anchor.diff:  %% Purpose : Convert process state when code is changed
   %% Returns : {ok, NewState}
   %%--------------------------------------------------------------------
  -code_change(OldVsn, State, Extra) ->
  +code_change(_OldVsn, State, _Extra) ->
       {ok, State}.
   
   %%--------------------------------------------------------------------
  
positive.code: %%           {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} ->
  	    {error, E};
  
negative.code: %%           THandler = thandler record()
  %%           E = string(), describes the error
  %%--------------------------------------------------------------------
  adopt_server_transaction(Request) when is_record(Request, request) ->
      case get_handler_for_request(Request) of
  	TH when is_record(TH, thandler) ->
  	    adopt_server_transaction_handler(TH);
  	_ ->
  	    {error, "unknown result from get_handler_for_request"}
      end.
  
  %% See adopt_server_transaction/1 above
  adopt_server_transaction_handler(TH) when is_record(TH, thandler) ->
      case catch gen_server:call(TH#thandler.pid, {set_report_to, self()}, 1000) of
  	{error, E} ->
  	    {error, E};
  