anchor.diff:  
   update_counter_do(Opts) ->
       Set = ets_new(set,Opts),
  -    OrdSet = ets_new(ordered_set,
  -                     replace_dbg_hash_fixed_nr_of_locks([ordered_set | Opts])),
       update_counter_for(Set),
  -    update_counter_for(OrdSet),
       ets:delete_all_objects(Set),
  -    ets:delete_all_objects(OrdSet),
       ets:safe_fixtable(Set, true),
  -    ets:safe_fixtable(OrdSet, true),
       update_counter_for(Set),
  -    update_counter_for(OrdSet),
       ets:safe_fixtable(Set, false),
  -    ets:safe_fixtable(OrdSet, false),
       ets:delete(Set),
  -    ets:delete(OrdSet),
  +
  +    run_if_valid_opts(
  +      [ordered_set | Opts],
  +      fun (OptsOrdSet) ->
  +              OrdSet = ets_new(ordered_set, OptsOrdSet),
  +              update_counter_for(OrdSet),
  +              ets:delete_all_objects(OrdSet),
  +              ets:safe_fixtable(OrdSet, true),
  +              update_counter_for(OrdSet),
  +              ets:safe_fixtable(OrdSet, false),
  +              ets:delete(OrdSet)
  +      end),
  +
       update_counter_neg(Opts).
   
   update_counter_for(T) ->
  
positive.code: 	     true = ets:delete(T)
       end)(),
      (fun() ->
  	     T = ets_new(x,[bag|Opts]),
  	     F = fun(0,_)->ok;(N,F) ->
  			 ets:insert(T,{integer_to_list(N),N}),
  			 F(N-1,F)
  
negative.code:     3999 = ets:info(T,size),
      0 = get_kept_objects(T),
      ets:delete(T),
      run_if_valid_opts(
        [ordered_set | Opts],
        fun (Opts1) ->
                T1 = ets_new(x, Opts1),
                filltabint(T1,4000),
                del_one_by_one_set(T1,1,4001),
                filltabint(T1,4000),
                del_one_by_one_set(T1,4000,0),
                ets:delete(T1)
        end),
      T2 = ets_new(x,[bag | Opts]),
      filltabint2(T2,4000),
      del_one_by_one_bag(T2,1,4001),
  