anchor.diff:      static let chunkSize = 32 * 1024
       let builder = new BlobBuilder(chunkSize)
   
  -    override this.CanWrite  with get() = true
  -    override this.CanRead   with get() = false
  -    override this.CanSeek   with get() = false
  -    override this.Length    with get() = int64(builder.Count)
  +    override this.CanWrite = true
  +    override this.CanRead  = false
  +    override this.CanSeek  = false
  +    override this.Length   = int64(builder.Count)
   
       override this.Write(buffer:byte array, offset:int, count:int) = builder.WriteBytes(buffer, offset, count)
       override this.WriteByte(value:byte) = builder.WriteByte(value)
  
positive.code:     let documentIndex =
          let includeSource file =
              let isInList =
                  if embedSourceList |> List.length = 0 then false
                  else
                      match embedSourceList |> List.tryFind(fun f -> String.Compare(file, f, StringComparison.OrdinalIgnoreCase ) = 0) with
                      | Some _ -> true
                      | None   -> false
  
              if not embedAllSource && not isInList || not (File.Exists(file)) then
                  None
  
negative.code:             let handle =
                  match checkSum doc.File with
                  | Some (hashAlg, checkSum) ->
                      let dbgInfo = 
                          (serializeDocumentName doc.File,
                           metadata.GetOrAddGuid(hashAlg),
                           metadata.GetOrAddBlob(checkSum.ToImmutableArray()),
  