anchor.diff:                  ok;
               {'DOWN', MonRef, process, CompactPid, Reason} ->
                   ?LOG_ERROR("Compaction daemon - an error ocurred while compacting"
  -                    " the view group `~s` from database `~s`: ~p",
  -                    [GroupId, DbName, Reason]),
  +                    " the view group `~s` from bucket `~s`: ~p",
  +                    [DDocId, BucketName, Reason]),
                   ok
               after TimeLeft ->
                   ?LOG_INFO("Compaction daemon - canceling the compaction for the "
  -                    "view group `~s` of the database `~s` because it's exceeding"
  -                    " the allowed period.", [GroupId, DbName]),
  +                    "view group `~s` of the bucket `~s` because it's exceeding"
  +                    " the allowed period.", [DDocId, BucketName]),
                   erlang:demonitor(MonRef, [flush]),
  -                ok = couch_view_compactor:cancel_compact({DbName, MasterDbName}, GroupId),
  +                ok = couch_set_view_compactor:cancel_compact(BucketName, DDocId),
                   timeout
               end;
           false ->
  
positive.code:     end.
  
  
  compact_vbucket(DbName, MasterDbName, DDocNames, Config) ->
      case (catch couch_db:open_int(DbName, [])) of
      {ok, Db} ->
          {ok, DbCompactPid} = couch_db:start_compact(Db),
  
negative.code:             false;
          false ->
              {Frag, SpaceRequired} = frag(GroupInfo),
              ?LOG_DEBUG("Fragmentation for view group `~s` (bucket `~s`) is "
                  "~p%, estimated space for compaction is ~p bytes.",
                  [DDocId, BucketName, Frag, SpaceRequired]),
              case check_frag(Config#config.view_frag, Frag) of
              false ->
                  false;
  