anchor.diff:                      epp_parse_file(Epp, S, [Form | Forms])
               end;
           {error,{Ln,Mod,Args}} = Form ->
  -            io:format("~ts:~w: ~ts\n",
  +            io:format(standard_error, "~ts:~w: ~ts\n",
                         [S#state.file,Ln,Mod:format_error(Args)]),
               epp_parse_file(Epp, S#state{n_errors = S#state.n_errors + 1}, [Form | Forms]);
           {eof, LastLine} ->
  
positive.code:             ok = file:close(Fd),
  	    check_source(S3, CheckOnly);
  	{error, Reason} ->
  	    io:format("escript: ~tp\n", [Reason]),
  	    fatal("Preprocessor error")
      end.
  
  
negative.code:                   Errors).
  
  list_errors(F, [{Line,Mod,E}|Es]) ->
      io:format(standard_error, "~ts:~w: ~ts\n", [F,Line,Mod:format_error(E)]),
      list_errors(F, Es);
  list_errors(F, [{Mod,E}|Es]) ->
      io:format(standard_error, "~ts: ~ts\n", [F,Mod:format_error(E)]),
      list_errors(F, Es);
  list_errors(_F, []) -> ok.
  
  