anchor.diff:  				  end
   			  end, Procs),
   	    From ! test_procs_synced,
  -	    spawn_logger([From])
  +	    spawn_logger([From], FailedMemchecks);
  +
  +	failed_memcheck ->
  +	    spawn_logger(Procs, FailedMemchecks+1);
  +
  +	{Pid, get_failed_memchecks} ->
  +	    Pid ! {get_failed_memchecks, FailedMemchecks},
  +	    spawn_logger(Procs, FailedMemchecks)
       end.
   
   pid_status(Pid) ->
  
positive.code:     case whereis(ets_test_spawn_logger) of
  	Pid when is_pid(Pid) -> true;
  	_ -> register(ets_test_spawn_logger,
  		      spawn_opt(fun () -> spawn_logger([]) end,
  				[{priority, max}]))
      end.
  
  
negative.code:     repeat_for_opts(F, OptGenList, []).
  
  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) ->
  