anchor.diff:  repeat_for_opts_atom2list(read_concurrency) -> [{read_concurrency,false},{read_concurrency,true}];
   repeat_for_opts_atom2list(compressed) -> [compressed,void].
   
  +is_redundant_opts_combo(Opts) ->
  +    (lists:member(stim_cat_ord_set, Opts) orelse
  +     lists:member(cat_ord_set, Opts))
  +        andalso
  +    (lists:member({write_concurrency, false}, Opts) orelse
  +     lists:member(private, Opts) orelse
  +     lists:member(protected, Opts)).
   
   ets_new(Name, Opts) ->
       ReplaceStimOrdSetHelper =
  
positive.code: repeat_for_opts(F, [], Acc) ->
      lists:foldl(fun(Opts, RV_Acc) ->
  			OptList = lists:filter(fun(E) -> E =/= void end, Opts),
  			io:format("Calling with options ~p\n",[OptList]),
  			RV = F(OptList),
  			case RV_Acc of
  			    {comment,_} -> RV_Acc;
  			    _ -> case RV of
  				     {comment,_} -> RV;
  				     _ -> [RV | RV_Acc]
  				 end
  			end
  		end, [], Acc);
  repeat_for_opts(F, [OptList | Tail], []) when is_list(OptList) ->
      repeat_for_opts(F, Tail, [[Opt] || Opt <- OptList]);
  repeat_for_opts(F, [OptList | Tail], AccList) when is_list(OptList) ->
  
negative.code:     Tab.
  
  evil_delete_owner(Name, Flags, Data, Fix) ->
      case is_redundant_opts_combo(Flags) of
          true -> skip;
          false ->
              evil_delete_owner_1(Name, Flags, Data, Fix)
      end.
  
  evil_delete_owner_1(Name, Flags, Data, Fix) ->
      Fun = fun() ->
  		  Tab = ets_new(Name, [public|Flags]),
  		  ets:insert(Tab, Data),
  