anchor.diff:  %%--------------------------------------------------------------------
   %% @doc
   %%  Go through and actually build up the tar file.
  -%% @spec make_tar(BuildRef, ProjectDir, ProjectApps, ProjectRepoApps, Repo) -> ok
  +%% @spec make_tar(BuildRef, ProjectDir,
  +%%   ProjectApps, ProjectRepoApps, Repo) -> ok
   %% @end
   %%--------------------------------------------------------------------
   make_tar(BuildRef, ProjectDir, ProjectApps, ProjectRepoApps, Repo) ->
       BuildDir = sin_build_config:get_value(BuildRef, "build.dir"),
       TarDir = filename:join([BuildDir, "tar"]),
       filelib:ensure_dir(filename:join([TarDir, "tmp"])),
  -    ProjectName = get_project_name(BuildRef),
  -    ReleaseName = case sin_build_config:get_value(BuildRef, "-r") of
  -                      undefined ->
  -                          ProjectName;
  -                      R ->
  -                          R++"-"++sin_build_config:get_value(BuildRef, "releases."++R++".vsn")
  -                  end,
  +    ProjectName = get_project_release_name(BuildRef),
  +    ReleaseName =
  +	case sin_build_config:get_value(BuildRef, "-r") of
  +	    undefined ->
  +		ProjectName;
  +	    R ->
  +		R ++ "-" ++
  +		    sin_build_config:get_value(BuildRef,
  +					       "releases." ++ R ++ ".vsn")
  +	end,
       LibDir = filename:join([ProjectName, "lib"]),
       AppDir = filename:join([BuildDir, "apps"]),
       List1 = gather_dirs(LibDir, Repo, ProjectRepoApps, []),
  
positive.code:         true ->
              {ok, Files} = file:list_dir(Target),
              lists:foldl(fun(File, Acc) ->
                                  gather_config_info(Target, TargetReleases, File, Acc)
                          end,
                          [],
                          Files);
  
negative.code: %% @end
  %%--------------------------------------------------------------------
  get_release_dirs(BuildRef, ProjectName, BuildDir, ProjectDir) ->
      Name = get_project_name(BuildRef),
      SourceReleases = filename:join([BuildDir, "releases", ProjectName]),
      TargetReleases = filename:join([ProjectName, "releases", ProjectName]),
      Result =
          case sin_build_config:get_value(BuildRef,
  					"tasks.dist.include_release_info") of
              Value when Value == true; Value == undefined ->
                  [{filename:join([SourceReleases,
                                   lists:flatten([Name, ".boot"])]),
  