anchor.diff:  	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};
  +    case transactionstatelist:get_entrylist_using_pid(Pid) of
  +	none ->
  +	    logger:log(debug, "Transaction layer: Received exit signal from ~p not in my list.", [Pid]),
  +	    true;
  +	L when is_list(L) ->
  +	    {ok, Deleted} = transactionstatelist:delete_using_entrylist(L),
  +	    logger:log(debug, "Transaction layer: Deleting ~p entry(s) from transactionlist :~n~p~n"
  +		       "(new list is ~p entry(s))", [Deleted, transactionstatelist:debugfriendly(L),
  +						     transactionstatelist:get_length()]),
  +	    true
  +	end,
  +    {noreply, State, ?TIMEOUT};
   
   handle_info(Msg, State) ->
       logger:log(error, "Transaction layer: Received unknown gen_server info :~n~p", [Msg]),
  
positive.code: %% 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)
  
negative.code: 
  %% 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()}, ?STORE_TIMEOUT) of
  	{error, E} ->
  	    {error, E};
  	{ok} ->
  