anchor.diff:  	 run_cover/1,
   	 fail/1,
   	 mark/2,
  -	 mark/3
  +	 mark/3,
  +
  +	 aggregate_coverage/1
   	]).
   
   %%--------------------------------------------------------------------
  
positive.code:     io:format("**********************************************************************~n"),
      io:format("*                      AUTOTEST STARTED            ~s  *~n",[TimeStr]),
      io:format("**********************************************************************~n"),
      Results = [{Module, test_module(Module)} || Module <- ?TEST_MODULES],
  
  
      io:format("~n"),
  
negative.code:     {ok, Cov, NotCov} = get_module_coverage(H),
      ModLines = Cov + NotCov,
      ModPercent = (Cov / ModLines * 100),
      This = {H, ModPercent, Cov, NotCov},
      NewModuleStats = [This | ModuleStats],
      aggregate_coverage2(T,
  			CoveredLines + Cov,
  			TotalLines + ModLines,
  