anchor.diff:          let hook (csr:ICursor) =
               fs.Close()
               // TODO remove csr from cursors list
  -        let csr = BTreeSegment.OpenCursor(fs, header.pageSize, page, new Action<ICursor>(hook))
  +        let csr = BTreeSegment.OpenCursor(fs, pageSize, page, new Action<ICursor>(hook))
           lock critSectionCursors (fun () -> cursors <- (seg,csr) :: cursors; )
           csr
   
  
positive.code: 
  module bt =
      // page types
      let private LEAF_NODE:byte = 1uy
      let private PARENT_NODE:byte = 2uy
      let private OVERFLOW_NODE:byte = 3uy
  
      // flags on values
      // TODO enum
      let private FLAG_OVERFLOW:byte = 1uy
      let private FLAG_TOMBSTONE:byte = 2uy
  
      // flags on pages
      // TODO enum
      let private FLAG_ROOT_NODE:byte = 1uy
      let private FLAG_BOUNDARY_NODE:byte = 2uy
      let private FLAG_ENDS_ON_BOUNDARY:byte = 4uy
  
negative.code: 
      let WASTE_PAGES_AFTER_EACH_BLOCK = 3 // TODO remove.  testing only.
      let PAGES_PER_BLOCK = 10 // TODO not hard-coded
  
      let readHeader() =
          let read() =
  