anchor.diff:      case file:open(filename:join(Dir, RELEASES), [write]) of
   	{ok, Fd} ->
   	    ok = io:format(Fd, "~p.~n", [NewReleases]),
  -	    file:close(Fd),
  -	    ok;
  +	    ok = file:close(Fd);
   	{error, Reason} ->
   	    {error, Reason}
       end.
  
positive.code: %% Make a directory, ignore failures (captured later).
  %%-----------------------------------------------------------------
  make_dir(Dir, false) ->
      file:make_dir(Dir);
  make_dir(Dir, Masters) ->
      lists:foreach(fun(Master) -> rpc:call(Master, file, make_dir, [Dir]) end,
  		  Masters).
  
negative.code: handle_info(timeout, S) ->
      case soft_purge(S#state.unpurged) of
  	[] ->
  	    _ = timer:cancel(S#state.timer),
  	    {noreply, S#state{unpurged = [], timer = undefined}};
  	Unpurged ->
  	    {noreply, S#state{unpurged = Unpurged}}
  