anchor.diff:      ok;
   
   reload_app([App|Rest]) when is_atom(App) ->
  -    App2 = nklib_util:to_binary(App),
  -    Dirs = lists:foldl(
  -        fun(Path, Acc) ->
  -            Path2 = nklib_util:to_binary(Path),
  -            case binary:split(Path2, <<App2/binary, "/ebin">>) of
  -                [_, <<>>] ->
  -                    [Path|Acc];
  -                _ ->
  -                    Acc
  -            end
  +    Beams = get_beams(App),
  +    lists:foreach(
  +        fun({Mod, File, Bin}) ->
  +            io:format("Reloading ~s...", [Mod]),
  +            code:purge(Mod),
  +            {module, Mod} = code:load_binary(Mod, File, Bin),
  +            io:format("ok\n")
           end,
  -        [],
  -        code:get_path()),
  -    lists:foreach(
  -        fun(Dir) ->
  -            lists:foreach(
  -                fun(File) ->
  -                    Mod = list_to_atom(filename:basename(File, ".beam")),
  -                    io:format("Reloading ~s...", [Mod]),
  -                    code:purge(Mod),
  -                    {module, Mod} = code:load_file(Mod),
  -                    io:format("ok\n")
  -
  -                end,
  -                filelib:wildcard(Dir++"/*.beam"))
  -        end,
  -        Dirs),
  +        Beams),
       reload_app(Rest);
   
   reload_app(App) when is_atom(App) ->
  
positive.code:     Node2 = nklib_util:to_atom(Node),
      case net_adm:ping(Node2) of
          pong ->
              rpc:call(Node2, ?MODULE, reload_app, [Apps]);
          pang ->
              {error, not_connected}
      end.
  
negative.code: %% -------------------------------------------------------------------
  
  -module(nklib_reloader).
  -export([reload_app/1, remote_reload/2, remote_reload/1]).
  -export([get_beams/1]).
  
  %% @doc Reloads all beams on disk for an app(s)
  -spec reload_app(atom()|[atom()]|list()|binary()) ->
  