anchor.diff:              ok = file:close(Fd),
   	    check_source(S3, CheckOnly);
   	{error, Reason} ->
  -	    io:format("escript: ~tp\n", [Reason]),
  +	    io:format(standard_error, "escript: ~tp\n", [Reason]),
   	    fatal("Preprocessor error")
       end.
   
  
positive.code:                   Errors).
  
  list_errors(F, [{Line,Mod,E}|Es]) ->
      io:format("~ts:~w: ~ts\n", [F,Line,Mod:format_error(E)]),
      list_errors(F, Es);
  list_errors(F, [{Mod,E}|Es]) ->
      io:format("~ts: ~ts\n", [F,Mod:format_error(E)]),
      list_errors(F, Es);
  list_errors(_F, []) -> ok.
  
  
negative.code:             [File|Args] ->
                  parse_and_run(File, Args, EscriptOptions);
              [] ->
                  io:format(standard_error, "escript: Missing filename\n", []),
                  my_halt(127)
          end
      catch
  