anchor.diff:  
   handle_call({unpack_release, ReleaseName}, _From, S)
     when S#state.masters == false ->
  -    RelDir = S#state.rel_dir,
  -    case catch do_unpack_release(S#state.root, RelDir,
  +    case catch do_unpack_release(S#state.root, S#state.rel_dir,
   				 ReleaseName, S#state.releases) of
   	{ok, NewReleases, Vsn} -> 
  -	    clean_release(RelDir, ReleaseName),
   	    {reply, {ok, Vsn}, S#state{releases = NewReleases}};
   	{error, Reason}   ->
   	    {reply, {error, Reason}, S}; 
  
positive.code: 
  
  mon_nodes(true) ->
      net_kernel:monitor_nodes(true);
  mon_nodes(false) ->
      net_kernel:monitor_nodes(false),
      flush().
  
  flush() ->
  
negative.code: 	    UpdData = erlsrv:new_service(Name, Data, []),
  	    case erlsrv:store_service(EVsn,UpdData) of
  		ok ->
  		    {ok,_} = erlsrv:disable_service(PermanentEVsn, PermName),
  		    {ok,_} = erlsrv:enable_service(EVsn, Name),
  		    {ok,_} = erlsrv:remove_service(PermName),
  		    %%% Read comments about these above...
  		    os:putenv("ERLSRV_SERVICE_NAME", Name),
  		    ok = heart:cycle();
  		Error4 ->
  		    throw(Error4)
  	    end
  