anchor.diff:      repeat_for_opts(F, OptGenList, []).
   
   repeat_for_opts(F, [], Acc) ->
  -    lists:map(fun(Opts) ->
  -                    OptList = lists:filter(fun(E) -> E =/= void end, Opts),
  -                    io:format("Calling with options ~p\n",[OptList]),
  -		            F(OptList)
  -	          end, 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) ->
  
positive.code: 	    io:format("Actual:   ~p", [MemInfo2]),
  	    io:format("Changed tables before: ~p\n",[AllTabs -- AllTabs2]),
  	    io:format("Changed tables after: ~p\n", [AllTabs2 -- AllTabs]),
  	    ?t:fail()
      end.
  
  
  
negative.code:     case whereis(ets_test_spawn_logger) of
  	Pid when is_pid(Pid) -> true;
  	_ -> register(ets_test_spawn_logger,
  		      spawn_opt(fun () -> spawn_logger([], 0) end,
  				[{priority, max}]))
      end.
  
  