anchor.diff:  
   
       /// Append Configuration.Id on all values.
  +    /// Note : This property should not be used by clients.
       member this.WithAppendedId =
           let withId s = sprintf "%s%05d" s this.Id
           { this with
  
positive.code: open Microsoft.ServiceBus
  open Microsoft.ServiceBus.Messaging
  open Microsoft.WindowsAzure.Storage
  open Nessos.FsPickler
  open MBrace.Runtime
  open Nessos.Vagabond
  open System
  open System.Collections.Concurrent
  open System.Reflection
  open System.Security.Cryptography
  open System.Text
  open System.Threading
  open MBrace.Azure
  
  [<AutoSerializable(false)>]
  type ClientProvider (config : Configuration) =
      let acc = CloudStorageAccount.Parse(config.StorageConnectionString)
      do System.Net.ServicePointManager.Expect100Continue <- false
      do System.Net.ServicePointManager.UseNagleAlgorithm <- false
  
      member __.TableClient = acc.CreateCloudTableClient()
      member __.BlobClient = 
          let client = acc.CreateCloudBlobClient()
          client.DefaultRequestOptions.ParallelOperationThreadCount <- System.Nullable(4 * System.Environment.ProcessorCount)
          client.DefaultRequestOptions.SingleBlobUploadThresholdInBytes <- System.Nullable(1L <<< 23) // 8MB, possible ranges: 1..64MB, default 32MB
          client.DefaultRequestOptions.MaximumExecutionTime <- Nullable<_>(TimeSpan.FromMinutes(10.))
  
negative.code: 
      member __.InitAll() =
          async {
              try
                  let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.RuntimeTable).CreateIfNotExistsAsync()
                  let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.RuntimeLogsTable).CreateIfNotExistsAsync()
                  let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.UserDataTable).CreateIfNotExistsAsync()
                  let! _ = Async.AwaitTask <| __.BlobClient.GetContainerReference(config.RuntimeContainer).CreateIfNotExistsAsync()
                  let! _ = Async.AwaitTask <| __.BlobClient.GetContainerReference(config.UserDataContainer).CreateIfNotExistsAsync()
                  ()
              with e ->
                  raise <| InvalidConfigurationException("Invalid Storage Account Configuration", e)
              try
                  let! _ = Async.AwaitTask <| __.NamespaceClient.QueueExistsAsync(config.RuntimeQueue)
                  ()
              with e ->
                  raise <| InvalidConfigurationException("Invalid Service Bus Configuration", e)
          }
  
  [<Sealed;AbstractClass>]
  