anchor.diff:      ?Debug("Writing outout file~s~n", [OutFile]),
       {ok, Out} = file:open(OutFile, [write]),
       ok = io:format(Out, "-module(~s).~n-compile(export_all).~n~n", [Module]),
  +    ok = io:format(Out, "-yawsfile('" ++ get(yfile) ++ "').~n",[]),
  +
       io:format(Out, "%%~n%% code at line ~w from file ~s~n%%~n",
   	      [Line, C#comp.infile]),
   
  
positive.code: comp_err(C, _LineNo, NumChars, Err) ->
      case Err of
  	[{_FileName, [ {Line0, Mod, E} |_]} |_] when integer(Line0) ->
  	    Line = Line0 + C#comp.startline - 9,
  	    ?Debug("XX ~p~n", [{_LineNo, Line0}]),
  	    Str = io_lib:format("~s:~w:~n ~s\n", 
  				[C#comp.infile, Line,
  
negative.code: 
  
  compile_file(File, GC, SC) ->
      put(yfile,yaws:to_list(File)),
      %% broken erlang compiler isn't
      %% reentrant, can only have one erlang compiler at a time running 
      global:trans({yaws, self()},
  		 fun() ->
  			 ?Debug("Compile ~s~n", [File]),
  