anchor.diff:                DDocNames = ddoc_names(BucketName),
                 DDocNames =/= [] orelse exit(normal),
   
  -              %% for non-parallel view compaction grab token here and set Force=true
  -              %% for docs compactors to prevent kv compaction from interrupting us
  -              %% between docs
  +              Compactors = get_view_compactors(BucketName, DDocNames, Config, true),
  +
  +              %% make sure that scheduled non-parallel view compaction doesn't happen
  +              %% during the kv compaction
                 Config#config.parallel_view_compact orelse get_kv_token(),
   
  -              Compactors = get_view_compactors(BucketName, DDocNames, Config, true),
                 misc:wait_for_process(chain_compactors(Compactors), infinity)
         end).
   
  
positive.code:                       {Ix, VBucketAndDbName} <- misc:enumerate(VBucketDbs) ],
  
                process_flag(trap_exit, true),
                do_chain_compactors(Parent, Compactors),
  
                ?log_info("Finished compaction of databases for bucket ~s",
  
negative.code:     %% effectful
      ensure_can_db_compact(DbName, SizeInfo),
  
      ?log_info("Compacting `~s' (~p)", [DbName, Options]),
      Ret = case VBucket of
                master ->
  