anchor.diff:      modify(1, Number, Repeat, Size).
   
   modify(Start, End, Repeat, Size) when End >= Start andalso Repeat >= 1 ->
  -%%     ct:pal("~p~n", [erlang:memory()]),
  -    Table = hd([Tab || Tab <- ets:all(), is_atom(Tab), lists:prefix("db_", erlang:atom_to_list(Tab))]),
  +    DHTNodes = pid_groups:find_all(dht_node),
  +%%     ct:pal("~p~n", [erlang:memory()]),
  +    Table = hd([Tab || Tab <- ets:all(),
  +                       ets:info(Tab, name) =:= dht_node_db,
  +                       lists:member(ets:info(Tab, owner), DHTNodes)]),
       print_table_info(Table),
       PrevMemInfo = get_meminfo(),
       MyBinSize =
  
positive.code:     fill(1, Number, Size).
  
  fill(Start, End, Size) when End >= Start ->
  %%     ct:pal("~p~n", [erlang:memory()]),
      Table = hd([Tab || Tab <- ets:all(), is_atom(Tab), lists:prefix("db_", erlang:atom_to_list(Tab))]),
      print_table_info(Table),
      PrevMemInfo = get_meminfo(),
      MyBinSize =
  
negative.code: %%      written binary.
  write(Number, Size) when Number >= 1 ->
      Key = lists:flatten(io_lib:format("write_~B", [Number])),
      DHTNodes = pid_groups:find_all(dht_node),
  %%     ct:pal("~p~n", [erlang:memory()]),
      Table = hd([Tab || Tab <- ets:all(),
                         ets:info(Tab, name) =:= dht_node_db,
                         lists:member(ets:info(Tab, owner), DHTNodes)]),
      print_table_info(Table),
      PrevMemInfo = get_meminfo(),
      % only the last binary should be kept!
  