anchor.diff:  
   open Raven.Abstractions.Commands
   
  -type ProjectedDocument = (MyCountingDoc * Raven.Abstractions.Data.Etag)
  +type ProjectedDocument = (MyCountingDoc * Raven.Json.Linq.RavenJObject * Raven.Abstractions.Data.Etag)
   
   open Raven.Json.Linq
   
  
positive.code:             let buildNewDoc () =
                  let newDoc = new MyCountingDoc()
                  let etag = Raven.Abstractions.Data.Etag.Empty
                  (newDoc, etag)
  
              let! (doc, etag) = 
                  getDocument docKey documentStore cache
                  |> Async.map (Option.getOrElseF buildNewDoc)
  
  
negative.code:                     doc.Value <- doc.Value + value
                  else
                      doc.Value <- doc.Value - value
  
              let writeRequests =
                  {
  