anchor.diff:  
   
   do_remove_service(Vsn) ->
  -    %%% Very unconditionally remove the service.
  +    %% Very unconditionally remove the service.
  +    %% Note that the service could already have been removed when
  +    %% making another release permanent.
       ServiceName = hd(string:tokens(atom_to_list(node()),"@")) 
   	++ "_" ++ Vsn,
  -    erlsrv:remove_service(ServiceName).
  +    case erlsrv:get_service(ServiceName) of
  +	{error, _Error} ->
  +	    ok;
  +	_Data ->
  +	    {ok,_} = erlsrv:remove_service(ServiceName),
  +	    ok
  +    end.
   
   do_remove_release(Root, RelDir, Vsn, Releases) ->
       % Decide which libs should be removed
  
positive.code: 	{error, _Error} ->
  	    ok;
  	_Data ->
  	    erlsrv:remove_service(ToName)
      end,
      rename_service(EVsn,FromName,ToName).
  
  
negative.code: 		_ ->
  		    ok
  	    end,
  	    ok = init:make_permanent(filename:join(Dir, "start"), Sys),
  	    {ok, NewReleases, brutal_purge(Unpurged)};
  	{value, #release{status = permanent}} ->
  	    {ok, Releases, Unpurged};
  