anchor.diff:      Result.
   
   init(Options) when is_list(Options) ->
  -    Table = ets:new(vcache, []),
  +    Table = init_table(),
       % XXX: use application env here
       StoreMod = case orddict:find(storage_module, Options) of
   		   {ok, Mod} ->
  
positive.code: cache_dump() ->
      gen_server:call(?SERVER, {cache_dump}).
  
  %%% gen_server callbacks
  handle_cast(stop, State) ->
      {stop, normal, State}.
  
  handle_call({cache_dump}, _From, #vcstate{table=C}=State) ->
      {reply, ets:tab2list(C), State};
  handle_call({for_commit, Commit, VFun}, _From, State) ->
  
negative.code: init(_) ->
      init([]).
  
  init_table() -> ets:new(vcache, []).
  
  %%% API functions
  
  for_commit(Commit) ->
  