anchor.diff:  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);
  +                        case is_redundant_opts_combo(OptList) of
  +                            true ->
  +                                %%io:format("Ignoring redundant options ~p\n",[OptList]),
  +                                ok;
  +                            false ->
  +                                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
  +                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) ->
  
positive.code:     Tab.
  
  evil_delete_owner(Name, Flags, Data, Fix) ->
      Fun = fun() ->
  		  Tab = ets_new(Name, [public|Flags]),
  		  ets:insert(Tab, Data),
  
negative.code: 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 =
  