anchor.diff:      end.
   
   locate_src(Mod,[Dir|Dirs]) ->
  -    File = filename:join(Dir, mod_to_fname(Mod) ++ ".erl"),
  +    File = mod_to_filename(Dir, Mod, ".erl"),
       case file:read_file_info(File) of
   	{ok,FileInfo} ->
   	    LastModTime = FileInfo#file_info.mtime,
  
positive.code: %% src-dir should be one of .../src or .../src/e_src
  %% If dir does not contain .../ebin set dir to the same directory.
  
  smart_guess(Mod, Dir,IncPath) ->
      case reverse(filename:split(Dir)) of
  	["ebin"|D] ->
  	    Subdirs = case packages:split(Mod) of
  			  [_] -> [];
  			  [_|_] = Parts ->
  			      lists:reverse(tl(lists:reverse(Parts)))
  		      end,
  	    D1 = reverse(D),
  	    Dirs = [filename:join(D1 ++ ["src" | Subdirs]),
  		    filename:join(D1 ++ ["src", "e_src" | Subdirs])],
  	    {Dirs,Dirs ++ IncPath};
  	_ ->
  	    {[Dir],[Dir] ++ IncPath}
  
negative.code: locate_src(_,[]) ->
      false.
  
  
  %%______________________________________________________________________
  %% smart_guess(Mod, Dir,IncludePath) -> {[Dirs],[IncDirs]}
  