anchor.diff:      let doAutoMerge() = 
           // TODO allow caller to specify settings to control or disable this
           if autoMerge then
  -            match checkForMerge 0 4 false true with
  +            match cascadeMerge 0 4 false with
               | Some f -> startBackgroundMergeJob f
               | None -> ()
   
  
positive.code:                 }
              )
  
      let rec checkForMerge level min all cascade =
          let h = header
          let segmentsOfAge = List.filter (fun g -> (Map.find g h.segments).age=level) h.currentState
          // TODO we are trusting segmentsOfAge to be contiguous.  need test cases to
  
negative.code:             g
  
          member this.Merge(level:int, howMany:int, all:bool, cascade:bool) =
              if cascade then
                  cascadeMerge level howMany all
              else 
                  plainMerge level howMany all
  
          member this.BackgroundMergeJobs() = 
              backgroundMergeJobs
  