anchor.diff:                            [ReleasePackage], ?TIMEOUT) of
                   {ok, Vsn} ->
                       ?INFO(\"Unpacked successfully: ~p~n\", [Vsn]),
  -                    install_and_permafy(TargetNode, Vsn);
  +                    install_and_permafy(TargetNode, RelName, Vsn);
                   {error, UnpackReason} ->
                       print_existing_versions(TargetNode),
                       ?INFO(\"Unpack failed: ~p~n\",[UnpackReason]),
  
positive.code: parse_version(V) when is_list(V) ->
      hd(string:tokens(V,\"/\")).
  
  install_and_permafy(TargetNode, Vsn) ->
      case rpc:call(TargetNode, release_handler, check_install_release, [Vsn], ?TIMEOUT) of
          {ok, _OtherVsn, _Desc} ->
              ok;
  
negative.code:     case rpc:call(TargetNode, release_handler, install_release, [Vsn], ?TIMEOUT) of
          {ok, _, _} ->
              ?INFO(\"Installed Release: ~s~n\", [Vsn]),
              permafy(TargetNode, RelName, Vsn),
              ok;
          {error, {no_such_release, Vsn}} ->
              VerList =
  