anchor.diff:  	    UpdData = erlsrv:new_service(Name, Data, []),
   	    case erlsrv:store_service(EVsn,UpdData) of
   		ok ->
  -		    erlsrv:disable_service(PermanentEVsn, PermName),
  -		    erlsrv:enable_service(EVsn, Name),
  -		    erlsrv:remove_service(PermName),
  +		    {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),
  -		    heart:cycle(),
  -		    ok;
  +		    ok = heart:cycle();
   		Error4 ->
   		    throw(Error4)
   	    end
  
positive.code:     case file:open(File, [write | FileOpts]) of
  	{ok, Fd} ->
  	    io:put_chars(Fd, Str),
  	    file:close(Fd),
  	    ok;
  	{error, Reason} ->
  	    {error, {Reason, File}}
      end.
  
negative.code: 
  
  do_remove_service(Vsn) ->
      %% 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,
      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
  