anchor.diff:  
       let printReport v =
           log.Debug <| lazy v
  +    
  +    member x.DatabaseName: string = databaseName
   
       member x.Enqueue (message : 'TMessage) =
           messages <- message::messages
   
       member x.ProcessQueuedItems() =
           log.Debug <| lazy(sprintf "ProcessQueuedItems: %A. Count: %A" databaseName messages.Length)
  -        let inserts = 
  +
  +        inserts <-
               messages
               // reverse messages so they run in order
               |> List.rev
  
positive.code:     }
  
      let mutable messages : 'TMessage list = List.Empty
  
      let projectors =
          BulkProjector.projectorsWithContext projectors fetcher
  
negative.code:             |> Array.toSeq
              |> Seq.collect id
  
      member x.InsertDocuments() =
          log.Debug <| lazy(sprintf "Starting document insert")
  
          use bulkInsert = documentStore.BulkInsert(databaseName)
  