anchor.diff:      0 = ets:info(T,size),
       case ets:info(T,type) of
           ordered_set -> ok;
  -        _ -> 4000 = get_kept_objects(T)
  +        _ -> KeyRange = get_kept_objects(T)
       end,
       ets:safe_fixtable(T,false),
       0 = ets:info(T,size),
       0 = get_kept_objects(T),
  -    filltabint(T,4000),
  -    4000 = ets:info(T,size),
  +    filltabint(T, KeyRange),
  +    KeyRange = ets:info(T,size),
       true = ets:delete_all_objects(T),
       0 = ets:info(T,size),
       ets:delete(T),
  
positive.code: 
  heavy_lookup_do(Opts) ->
      EtsMem = etsmem(),
      Tab = ets_new(foobar_table, [{keypos, 2} | Opts]),
      ok = fill_tab2(Tab, 0, 7000),
      _ = [do_lookup(Tab, 6999) || _ <- lists:seq(1, 50)],
      true = ets:delete(Tab),
      verify_etsmem(EtsMem).
  
  
negative.code: 
  %% Delete a large table, and kill the process during the delete.
  evil_delete(Config) when is_list(Config) ->
      KeyRange = 100000,
      Data = [{I,I*I} || I <- lists:seq(1, KeyRange)],
      repeat_for_opts(fun(Opts) ->
                              evil_delete_do(key_range(Opts,KeyRange),
                                             Data)
                      end).
  
  evil_delete_do(Opts,Data) ->
      EtsMem = etsmem(),
  