anchor.diff:      Name = filename:join(St#comp.odir, lists:concat([M,".beam"])),
       case file:write_file(Name, Beam) of
           ok -> Mod;
  -        {error,E} ->
  -            {error,St#comp{errors=[{file,E}]}}
  +        {error,_} ->
  +	    %% Just signal we couldn't write the file.
  +            {error,[{lfe_comp,write_file}],[]}
       end.
   
   %% fix_erl_errors([{File,Errors}]) -> Errors.
  
positive.code: %%  Return the default compiler options.
  
  -define(DEFAULT_OPTS, [verbose,report]).
  
  default_options() -> ?DEFAULT_OPTS.
  
  
negative.code:               end,
      do_save_file(SaveAll, Ext, St).
  
  do_save_file(SaveAll, Ext, St) ->
      Name = filename:join(St#comp.odir, St#comp.base ++ ["."|Ext]),
      %% delayed_write useful here but plays havoc with erjang.
      case file:open(Name, [write]) of
          {ok,File} ->
              Ret = SaveAll(File, St#comp.code),
              ok = file:close(File),
              case Ret of
                  ok -> {ok,St};
                  {error,_} ->
  		    %% Just signal we couldn't write the file.
  		    {error,St#comp{errors=[{lfe_comp,write_file}]}}
              end;
          {error,_} ->
  	    %% Just signal we couldn't write the file.
  	    {error,St#comp{errors=[{lfe_comp,write_file}]}}
      end.
  
  do_add_docs(#comp{cinfo=Ci,code=Ms0}=St0) ->
  