anchor.diff:                DDocNames =/= [] orelse exit(normal),
   
                 Compactors = get_view_compactors(BucketName, DDocNames, Config, false),
  +
  +              %% make sure that scheduled non-parallel view compaction doesn't happen
  +              %% during the kv compaction
  +              Config#config.parallel_view_compact orelse get_kv_token(),
  +
                 misc:wait_for_process(chain_compactors(Compactors), infinity)
         end).
   
  
positive.code: 
                %% effectful
                ensure_can_view_compact(BucketName, DDocId, Type),
  
                %% make sure that scheduled non-parallel view compaction doesn't happen
                %% during the kv compaction
                Force orelse Config#config.parallel_view_compact orelse get_kv_token(),
  
                ?log_info("Compacting indexes for ~s", [ViewName]),
                process_flag(trap_exit, true),
  
negative.code:     %% effectful
      ensure_can_db_compact(DbName, SizeInfo),
  
      ?log_info("Compacting `~s' (~p)", [DbName, Options]),
      Ret = case VBucket of
                master ->
  