anchor.diff:          
           member this.TaskEntry : ICloudTaskCompletionSource = TaskCompletionSource(info.ConfigurationId, info.ParentJobId) :> _
           
  -        member this.Type : string = failwith "Not implemented yet"
  +        member this.Type : string = record.Type
       
       static member FromBrokeredMessage(config : ConfigurationId, message : BrokeredMessage) = 
           let tryGet name = 
  
positive.code: type internal Topic (config : ConfigurationId) = 
      let cp = ConfigurationRegistry.Resolve<StoreClientProvider>(config)
      let topic = cp.TopicClient(config.RuntimeTopic)
      
      member this.Metadata = cp.NamespaceClient.GetTopic(config.RuntimeTopic).UserMetadata
      
      member this.GetSubscription(workerId : IWorkerId) : Subscription = new Subscription(config, workerId)
      
  
negative.code: type JobLeaseToken private (info : JobLeaseTokenInfo)  = 
      let [<DataMember(Name="info")>] info = info
  
      let [<DataMember(Name="record")>] record : JobRecord = 
          Async.RunSync(Table.read info.ConfigurationId info.ConfigurationId.RuntimeTable info.ParentJobId info.JobId)
  
      member this.Id              = info.JobId
      member this.ConfigurationId = info.ConfigurationId
      member this.TargetWorker    = info.TargetWorker
      member this.MessageLockId   = info.MessageLockId
  