anchor.diff:      %% get the vsn of erts, kernel, stdlib from start_clean
       AppRel = filename:join([TmpDir,"releases",Vsn,App++".rel"]),
       DepsRel = filename:join([TmpDir,"lib",App++"-"++Vsn,"priv","deps.rel"]),
  -    {ok, [{release,RelAppVsn,{erts,RelErts}, RelApps}]} = file:consult(AppRel),
  +    {ok, [{release,RelAppVsn,{erts,RelErts}, _RelApps}]} = file:consult(AppRel),
       {ok, [SysDep,AppDep,AppApp]} = file:consult(DepsRel),
       
   
       %% verify that the app and vsn are same
  -    AppVsnOk = case RelAppVsn of
  -		   {App,Vsn} -> ok;
  -		   _ ->
  -		       ?ABORT("App and vsn in rel file do not match!~n ~p != ~p~n",[{App,Vsn},RelAppVsn])
  -	       end,
  +    case RelAppVsn of
  +	{App,Vsn} -> ok;
  +	_ ->
  +	    ?ABORT("App and vsn in rel file do not match!~n ~p != ~p~n",[{App,Vsn},RelAppVsn])
  +    end,
   
       [SysDep,
        AppDep,
  
positive.code:      {erts,[{erts,RelErts}]}].
  
  
  verify([], App, Sys) -> ok;
  verify([Type|Types], App, Sys) ->
      case proplists:get_value(Type,App) of
  	undefined ->
  
negative.code:     {ok, TmpDir}.
  
  
  get_sys_info(DestPath,[{sys,AppSys},{dep,AppDep},{app,AppApp},{erts,_ErtsVsn}]) ->
      ToCheck = AppSys++AppDep++AppApp,
      AtomToVer = fun({A,_V}) ->
  			case app_vsn_info(DestPath,A) of
  			    undefined -> error;
  			    Vsn -> {A,Vsn}
  			end
  		end,
      SysSys = lists:map(AtomToVer,ToCheck),
  