anchor.diff:              end,
         case Res of
           ok ->
  +          Filename = case code:which(Module) of
  +                       non_existing ->
  +                         atom_to_list(Module) ++ ".erl";
  +                       Path ->
  +                         Path
  +                     end,
             code:purge(Module),
  -          case code:load_binary(Module, atom_to_list(Module) ++ ".erl", Bin) of
  +          case code:load_binary(Module, Filename, Bin) of
               {module, _Module} -> ok;
               Err               -> Err
             end;
  
positive.code:   end.
  
  get_dirs_in_dir(Dir) ->
    case file:list_dir(Dir) of
      {error, _} ->
        undefined;
      {ok, Listing} ->
        lists:foldl(
          fun (Name, Acc) ->
              Path = Dir ++ "/" ++ Name,
              case file:read_file_info(Path) of
                {ok, #file_info{type=directory}} -> [Path | Acc];
                _ -> Acc
              end
  
negative.code:   [];
  get_forms_from_file_list(Module, Basedir, [H|T]) ->
    Filename = H ++ "/" ++ atom_to_list(Module) ++ ".erl",
    case read_file_info(Filename) of
      {ok, #file_info{type=regular}} ->
        epp:parse_file(Filename, [filename:dirname(Filename)], []);
      _ ->
  