anchor.diff:      end.
   
   get_active_txns_key_internal(Key, TableName) ->
  -    ActiveTxs = case ets:lookup(TableName, {prepare, Key}) of
  +    ActiveTxs = case ets:lookup(TableName, Key) of
                       [] ->
                           [];
  -                    [{{prepare, Key}, List}] ->
  +                    [{Key, List}] ->
                           List
                   end,
       {ok, ActiveTxs}.
  
positive.code: clean_prepared(_PreparedTx, [], _TxId) ->
      ok;
  clean_prepared(PreparedTx, [{Key, _Type, {_Op, _Actor}} | Rest], TxId) ->
      ActiveTxs = case ets:lookup(PreparedTx, {prepare, Key}) of
                      [] ->
                          [];
                      [{{prepare, Key}, List}] ->
                          List
                  end,
      NewActive = lists:keydelete(TxId, 1, ActiveTxs),
      true = case NewActive of
                 [] ->
                     ets:delete(PreparedTx, {prepare, Key});
                 _ ->
                     ets:insert(PreparedTx, {{prepare, Key}, NewActive})
             end,
      clean_prepared(PreparedTx, Rest, TxId).
  
  
negative.code:     ActiveTxs = case ets:tab2list(TableName) of
                      [] ->
                          [];
                      [{Key1, List1} | Rest1] ->
                          lists:foldl(fun({_Key, List}, Acc) ->
                              case List of
                                  [] ->
  