anchor.diff:          // if is being used to calculate free blocks, it won't find any free
           // blocks between the last used page and the end of the file
           snd folded
  -
  -    // TODO need to build a list of all the available pages
   
       let listAllBlocks h =
           let headerBlock = PageBlock(1, HEADER_SIZE_IN_BYTES / pageSize)
  
positive.code: 
      #if not
      static member CreateFromSortedSequence(fs:Stream, pageManager:IPages, pairs:seq<byte[]*Stream>, mess:string) = 
          // TODO do we need this one?
          let source = seq { for t in pairs do yield kvp(fst t,snd t) done }
          bt.CreateFromSortedSequenceOfKeyValuePairs (fs, pageManager, source)
      #endif
  
negative.code:             backgroundMergeJobs
  
          member this.OpenSegment(g:Guid) =
              getCursor header.segments g (Some checkForGoneSegment)
  
          member this.OpenCursor() =
              // TODO we also need a way to open a cursor on segments in waiting
              let h = header
              let clist = List.map (fun g -> getCursor h.segments g (Some checkForGoneSegment)) h.currentState
              let mc = MultiCursor.Create clist
              LivingCursor.Create mc
  
  