anchor.diff:  %%           {duplicate, Dup}
   %%           Dup = transactionstate record()
   %%--------------------------------------------------------------------
  -add(Type, Id, AckId, Pid, Desc) when is_pid(Pid); Pid == none, is_atom(Type),
  -				     Type == client; Type == server ->
  +add(Type, Id, AckId, Pid, Desc) when is_pid(Pid), is_atom(Type),
  +				     (Type == client orelse Type == server) ->
       Ref = make_ref(),
       TId = {Type, Id},
       case ets:insert_new(transactionstate_typeid_to_ref, {TId, Ref}) of
  
positive.code: %%           Type       = atom(), client | server
  %%           Id         = term()
  %%           AckId      = term() | none
  %%           Pid        = pid() | none
  %%           Desc       = string(),
  %% Descrip.: Add a new transaction state entry to TStateList.
  %% Returns : ok               |
  
negative.code: 				     expire = util:timestamp() + ?TRANSACTION_EXPIRE,
  	    			     description = Desc},
  	    true = ets_insert_new(transactionstate_ref_to_t, {Ref, NewT}),
  	    true = ets:insert(transactionstate_pid_to_ref, {Pid, Ref}),
  	    case AckId of
  		none -> true;
  		_ -> true = ets_insert_new(transactionstate_ack_to_ref, {AckId, Ref})
  