anchor.diff:  
       do init ()
   
  -    member this.Id              = info.JobId
  -    member this.ConfigurationId = info.ConfigurationId
  -    member this.TargetWorker    = info.TargetWorker
  -    member this.MessageLockId   = info.MessageLockId
  -    member this.DeliveryCount   = info.DeliveryCount
  -    member this.ParentJobId     = info.ParentJobId
  -    member this.DequeueTime     = info.DequeueTime
  +    member internal this.Info = info
   
       interface ICloudJobLeaseToken with
           member this.DeclareCompleted() : Async<unit> = 
  
positive.code:         async { 
              let! blob = Blob.Create(config, job.TaskEntry.Id, job.Id, fun () -> job)
              let msg = new BrokeredMessage(toGuid job.Id)
              msg.Properties.Add(Settings.ParentTaskIdPropertyName, toGuid job.TaskEntry.Id)
              match job.TargetWorker with
              | Some target -> msg.Properties.Add(Settings.AffinityPropertyName, target.Id)
              | _ -> ()
              do! sendF msg
              return blob.Size
  
negative.code:             sd.DefaultMessageTimeToLive <- Settings.MaxTTL
              sd.LockDuration <- Settings.MaxLockDuration
              sd.AutoDeleteOnIdle <- Settings.SubscriptionAutoDeleteInterval
              let filter = new SqlFilter(sprintf "%s = '%s'" Settings.AffinityProperty affinity)
              ns.CreateSubscription(sd, filter) |> ignore
  
      let sub = cp.SubscriptionClient(config.RuntimeTopic, workerId.Id)
  