anchor.diff:          and set reg = defaultRegion <- reg
   
       /// Lists all subscription names supplied in the current deployment manager instance
  -    member __.Subscriptions = pubSettings.Subscriptions |> Array.map (fun s -> s.Subscription.Name)
  +    member __.Subscriptions = subscriptions.Subscriptions |> Array.map (fun s -> s.Subscription.Name)
       /// Gets or sets the default subscription used by the deployment manager instance
       member __.DefaultSubscription 
  -        with get () = pubSettings.Default.Subscription.Name
  +        with get () = subscriptions.Default.Subscription.Name
           and set subId =
               lock syncRoot (fun () ->
  -                let sub = pubSettings.[subId]
  -                pubSettings <- { pubSettings with Default = sub })
  +                let sub = subscriptions.[subId]
  +                subscriptions <- { subscriptions with Default = sub })
   
       /// <summary>
       ///     Asynchronously starts deployment of MBrace cloud service with supplied parameters.
  
positive.code:     /// </summary>
      /// <param name="subscriptionId">Subscription id to fetch deployments from. Defaults to manager instance subscription default.</param>
      member __.GetDeploymentsAsync(?subscriptionId : string) = async {
          let client = pubSettings.GetClientByIdOrDefault(?id = subscriptionId)
          let! deployments = Deployment.getRunningDeployments client
          return Deployment.DeploymentReporter.Report(deployments, title = sprintf "Subscription: %A" client.Subscription.Name)
      }
  
negative.code:     /// <param name="serviceName">Service name to be looked up.</param>
      /// <param name="subscriptionId">Subscription id to fetch deployments from. Defaults to manager instance subscription default.</param>
      member __.GetConfigurationAsync(serviceName : string, ?subscriptionId : string) = async {
          let client = subscriptions.GetClientByIdOrDefault(?id = subscriptionId)
          let! result = Deployment.tryGetDeploymentConfiguration serviceName client
          match result with
          | Some config -> return config
  