anchor.diff:              {DB, ok};
           [{Key, {_Value, false, _ReadLock, _Version}}] ->
               {DB, failed};
  -        [] ->
  -            {DB, failed}
  +        [] -> {DB, failed}
       end.
   
   %% @doc sets a read lock on a key
  
positive.code:         [{Key, {_Value, false, 0, _Version}}] ->
              ?ETS:delete(DB, Key),
              {DB, ok};
          [{Key, _Value}] ->
              {DB, locks_set};
          [] ->
              {DB, undef}
      end.
  
  %% @doc reads the version of a key
  
negative.code:     Res = case ?ETS:lookup(DB, Key) of
                [{Key, {Value, _WriteLock, _ReadLock, Version}}] ->
                    {ok, Value, Version};
                [] -> {ok, empty_val, -1}
            end,
  %%     Stop = erlang:now(),
  %%     Span = timer:now_diff(Stop, Start),
  