anchor.diff:  
       proc_lib:spawn_link(
         fun () ->
  -              process_flag(trap_exit, true),
                 {ok, Db} = couch_db:open_int(DbName, []),
   
                 %% effectful
                 ensure_can_db_compact(Db),
   
                 ?log_info("Compacting ~p", [DbName]),
  +
  +              process_flag(trap_exit, true),
   
                 {ok, Compactor} = couch_db:start_compact(Db),
   
  
positive.code: 
      proc_lib:spawn_link(
        fun () ->
                process_flag(trap_exit, true),
  
                VBucketDbs = all_bucket_dbs(BucketName),
  
                DoCompact =
  
negative.code:                       {fun update_bucket_compaction_progress/2, [Ix, Total]}}] ||
                        {Ix, VBucketDb} <- misc:enumerate(VBucketDbs) ],
  
                process_flag(trap_exit, true),
                do_chain_compactors(Parent, Compactors),
  
                ?log_info("Finished compaction of databases for bucket ~s",
  