anchor.diff:                          _ ->
                               case is_inflation(V#dv.type, V#dv.value, Value) of
                                   true ->
  -                                    put(V#dv.type, Value, NextKey, Id, Table),
  +                                    write(V#dv.type, Value, NextKey, Id, Table),
                                       {reply, {ok, NextKey}, State};
                                   false ->
                                       {reply, error, State}
                               end
                       end;
                   false ->
  -                    put(V#dv.type, Value, NextKey, Id, Table),
  +                    write(V#dv.type, Value, NextKey, Id, Table),
                       {reply, {ok, NextKey}, State}
               end
           end;
  
positive.code: 
  %% Internal functions
  
  put(Type, Value, Next, Key, Table) ->
      [{_Key,V}] = ets:lookup(Table, Key),
      Threads = V#dv.waiting_threads,
      BindingList = V#dv.binding_list,
  
negative.code:          wait_needed/1,
           declare/2,
           get_new_id/0,
           write/5]).
  
  -export([start_vnode/1,
           init/1,
  