anchor.diff:      VariableAtom = list_to_atom(Variables),
       VariableAtom = ets:new(VariableAtom, [set, named_table, public,
                                             {write_concurrency, true}]),
  -    {ok, #state {partition=Partition, variables=VariableAtom}}.
  +    {ok, #state{partition=Partition, variables=VariableAtom}}.
   
   handle_command({declare, Id, Type}, _From,
                  State=#state{variables=Variables}) ->
  +    lager:info("Declare received: ~p ~p", [Id, Type]),
       Record = case Type of
           undefined ->
               #dv{value=undefined, type=undefined, bounded=false};
  
positive.code:             end,
              {reply, {ok, Value, V#dv.next}, State};
          true ->
              if
                  Lazy == true ->
                      WT = lists:append(V#dv.waiting_threads, [From]),
  
negative.code:     {noreply, State};
  handle_command({bind, Id, Value}, _From,
                 State=#state{variables=Variables}) ->
      lager:info("Bind received: ~p", [Id]),
      [{_Key, V}] = ets:lookup(Variables, Id),
      NextKey = next_key(V#dv.next, V#dv.type),
      case V#dv.bounded of
  