anchor.diff:  %% @end
   %%--------------------------------------------------------------------
   copy_additional_dirs(BuildRef, TopLevel, ProjectDir) ->
  -    NewDirs = case sin_build_config:get_value(BuildRef, "tasks.dist.include_dirs") of
  -		  undefined ->
  -		      [];
  -		  RequiredDirs ->
  -		      lists:map(fun(Elem) ->
  -					NewElem = case is_binary(Elem) of
  -						      true ->
  -							  binary_to_list(Elem);
  -						      false ->
  -							  Elem
  -						  end,
  -					Name = filename:join([ProjectDir, NewElem]),
  -					NewName = filename:join([TopLevel, NewElem]),
  -					{Name, NewName}
  +    NewDirs =
  +	case sin_build_config:get_value(BuildRef, "tasks.dist.include_dirs") of
  +	    undefined ->
  +		[];
  +	    RequiredDirs ->
  +		lists:map(fun(Elem) ->
  +				  NewElem =
  +				      case is_binary(Elem) of
  +					  true ->
  +					      binary_to_list(Elem);
  +					  false ->
  +					      Elem
  +				      end,
  +				  Name = filename:join([ProjectDir, NewElem]),
  +				  NewName = filename:join([TopLevel, NewElem]),
  +				  {Name, NewName}
   				end,
  -				RequiredDirs)
  -	    end,
  +			  RequiredDirs)
  +	end,
       hooks_dir(TopLevel, ProjectDir) ++
   	erts_dir(BuildRef, TopLevel) ++
   	NewDirs.
  
positive.code: %% @end
  %%--------------------------------------------------------------------
  get_release_dirs(BuildRef, ProjectName, BuildDir, ProjectDir) ->
      Name = case sin_build_config:get_value(BuildRef, "project.name") of
                 undefined ->
                     eta_event:task_fault(BuildRef, ?TASK,
                                          "No project name defined in build config "
                                          "aborting!"),
                     throw(no_project_name);
                 Nm ->
                     Nm
             end,
      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"])]),
  
negative.code: 
  %%--------------------------------------------------------------------
  %% @doc
  %%  Get the project release name from the config.
  %% @spec (BuildRef) -> ProjectName
  %% @end
  %%--------------------------------------------------------------------
  get_project_release_name(BuildRef) ->
      Version =
  	case sin_build_config:get_value(BuildRef, "project.vsn") of
  	    undefined ->
  		eta_event:task_fault(BuildRef, ?TASK,
  				     "No project version defined in build "
  				     "config  aborting!"),
  		throw(no_project_version);
  	    Vsn ->
                        Vsn
                end,
      Name = get_project_name(BuildRef),
      lists:flatten([Name, "-", Version]).
  
  
  %% @doc
  %%  Get the project name from the config.
  %% @end
  -spec get_project_name(sin_build_config:build_config()) -> string().
  get_project_name(BuildRef) ->
      case sin_build_config:get_value(BuildRef, "project.name") of
  	undefined ->
  	    eta_event:task_fault(BuildRef, ?TASK,
  				 "No project name defined in build config "
  				 "aborting!"),
  	    throw(no_project_name);
  	Nm ->
  	    Nm
      end.
  
  %%--------------------------------------------------------------------
  %% @doc
  