anchor.diff:      member this.Configuration  
           with get () = configuration
           and set c = check (); configuration <- c
  -    
  -    /// Determines if the registered local cache will be used.
  -//    member this.UseLocalCache
  -//        with get () = useCache
  -//        and set c = check (); useCache <- c
   
       /// Get or set iff version compatibility will be ignored.
       member this.IgnoreVersionCompatibility
  
positive.code:                 logf "CloudFileStore : %s" storeProvider.Value.Id
  
                  let store = storeProvider.Value
  //                    if this.UseLocalCache then
  //                        cache <- 
  //                            Some <|
  //                                match cache with
  //                                | Some cs -> cs
  //                                | None -> FileSystemStore.CreateSharedLocal() :> ICloudFileStore
  //
  //                        logf "Local Cache Store %s" cache.Value.Id
  //                        let store = FileStoreCache.Create(storeProvider.Value, cache.Value) //:> ICloudFileStore
  //                        logf "CachedStore %s created" store.Id
  //                        store
  //                    else
  
                  atomProvider <- 
                      Some <|
  
negative.code:     let mutable channelDirectory = None
      let mutable atomDirectory    = None
  
      let mutable ignoreVersion   = true
      let mutable customResources = ResourceRegistry.Empty
      let mutable configuration   = config
  