anchor.diff:              let! doc = async { 
                   if doc = null then
                       let newDoc = new MyCountingDoc()
  -                    do! session.StoreAsync(newDoc, docKey) |> taskToAsync
  +                    do! session.StoreAsync(newDoc, docKey) |> Util.taskToAsync
                       return newDoc
                   else
                       return doc
  
positive.code: 
  type MyCountingDoc = Eventful.CsTests.MyCountingDoc
  
  type RavenProjector (documentStore:Raven.Client.IDocumentStore) =
      let taskToAsync (task:System.Threading.Tasks.Task) =
          let wrappedTask = 
              task.ContinueWith(fun _ -> 
  
negative.code:                     doc.Value <- doc.Value + value
                  else
                      doc.Value <- doc.Value - value
              do! session.SaveChangesAsync() |> Util.taskToAsync
          }
  
      let queue = new WorktrackingQueue<Guid, Guid * int>(fst >> Set.singleton, processEvent, 10000, 10);
  