anchor.diff:      let log = createLogger "Eventful.Raven.RavenReplayProjector"
       let numWorkers = 10
   
  +    
  +
       let fetcher = {
           new IDocumentFetcher with
               member x.GetDocument<'TDocument> key : Tasks.Task<ProjectedDocument<'TDocument> option> = 
  
positive.code:             |> Array.toSeq
              |> Seq.collect id
  
          log.Debug <| lazy(sprintf "Starting document insert")
  
          use bulkInsert = documentStore.BulkInsert(databaseName)
  
negative.code:     }
  
      let mutable messages : 'TMessage list = List.Empty
      let mutable inserts : ProcessAction seq = Seq.empty
  
      let projectors =
          BulkProjector.projectorsWithContext projectors fetcher
  