anchor.diff:              VbNames);
       true ->
           lists:foreach(fun(N) ->
  -            compact_vbucket(N, BucketName, DDocNames, Config) end,
  +            compact_vbucket(N, Config) end,
               VbNames)
       end.
   
  
positive.code:             erlang:demonitor(DbMonRef, [flush]),
              ok = couch_db:cancel_compact(Db),
              couch_db:close(Db)
          end,
          case ViewsMonRef of
          nil ->
              ok;
          _ ->
              receive
              {'DOWN', ViewsMonRef, process, _, _Reason} ->
                  ok
              end
          end;
      Error ->
          ?log_error("Couldn't open vbucket database `~s`: ~p", [DbName, Error])
  
negative.code:     end.
  
  
  compact_vbucket(DbName, Config) ->
      case (catch couch_db:open_int(DbName, [])) of
      {ok, Db} ->
          {ok, DbCompactPid} = couch_db:start_compact(Db),
          TimeLeft = compact_time_left(Config),
          DbMonRef = erlang:monitor(process, DbCompactPid),
          receive
          {'DOWN', DbMonRef, process, _, normal} ->
              couch_db:close(Db);
          {'DOWN', DbMonRef, process, _, Reason} ->
              couch_db:close(Db),
              ?log_error("Compaction daemon - an error occurred while"
  