anchor.diff:      let DataFolder = 
           Directory.CreateDirectory(dataFolder) |> ignore
           dataFolder
  -
  +    
       /// Flex index folder
       let ConfFolder = 
           Directory.CreateDirectory(confFolder) |> ignore
  
positive.code: type ILogService = 
      
      [<EventAttribute(1, Message = "Adding new index {0}. \nIndexDetails: {1}", Level = EventLevel.Informational, 
                       Channel = EventChannel.Admin, Keywords = Keywords.IndexManagement)>]
      abstract AddIndex : indexName:string * indexDetails:string -> unit
      
      [<EventAttribute(2, Message = "Updating index {0}. \nIndexDetails: {1}", Level = EventLevel.Informational, 
                       Channel = EventChannel.Admin, Keywords = Keywords.IndexManagement)>]
      abstract UpdateIndex : indexName:string * indexDetails:string -> unit
      
      [<EventAttribute(3, Message = "Deleting index {0}", Level = EventLevel.Informational, Channel = EventChannel.Admin, 
                       Keywords = Keywords.IndexManagement)>]
      abstract DeleteIndex : indexName:string -> unit
      
      [<EventAttribute(4, Message = "Closing index {0}.", Level = EventLevel.Informational, Channel = EventChannel.Admin, 
                       Keywords = Keywords.IndexManagement)>]
      abstract CloseIndex : indexName:string -> unit
      
      [<EventAttribute(5, Message = "Opening index {0}.", Level = EventLevel.Informational, Channel = EventChannel.Admin, 
                       Keywords = Keywords.IndexManagement)>]
      abstract OpenIndex : indexName:string -> unit
      
      [<EventAttribute(6, Message = "Loading index {0}. \nIndexDetails: {1}", Level = EventLevel.Informational, 
                       Channel = EventChannel.Admin, Keywords = Keywords.IndexManagement)>]
      abstract LoadingIndex : indexName:string * indexDetails:string -> unit
      
      [<EventAttribute(7, Message = "Failed to load index {0}. \nIndexDetails: \n{1} \nError details: \n{2}", 
                       Level = EventLevel.Error, Channel = EventChannel.Admin, Keywords = Keywords.IndexManagement)>]
      abstract IndexLoadingFailed : indexName:string * indexDetails:string * validationObject:string -> unit
      
      [<EventAttribute(8, Message = "Loading Component of type: {0} \nLoaded component details:\n{1}", 
                       Level = EventLevel.Informational, Channel = EventChannel.Admin, Keywords = Keywords.Components)>]
      abstract ComponentLoaded : componentType:string * componentNames:string -> unit
      
      [<EventAttribute(9, Message = "Component initialization failed: {0}. Component type: {1} \nError details: \n{2}", 
                       Level = EventLevel.Error, Channel = EventChannel.Admin, Keywords = Keywords.Components)>]
      abstract ComponentInitializationFailed : name:string * componentType:string * message:string -> unit
      
      [<EventAttribute(10, Message = "Staring FlexSearch.\nDetails: \n{0}", Level = EventLevel.Informational, 
                       Channel = EventChannel.Admin, Keywords = Keywords.Node)>]
      abstract StartSession : details:string -> unit
      
      [<EventAttribute(11, Message = "Quiting FlexSearch.", Level = EventLevel.Informational, Channel = EventChannel.Admin, 
                       Keywords = Keywords.Node)>]
      abstract EndSession : unit -> unit
      
      [<EventAttribute(12, Message = "FlexSearch termination request received.", Level = EventLevel.Informational, 
                       Channel = EventChannel.Admin, Keywords = Keywords.Node)>]
      abstract Shutdown : unit -> unit
      
      [<EventAttribute(13, Message = "{0}", Level = EventLevel.Critical, Channel = EventChannel.Admin, 
  
negative.code:         // get garbage collected.
          store.ObjectStore.TryAdd(key, value) |> ignore
          store.PersistenceStore.UpdateItem(key, metaData)
      
      /// Add or update an instance of an item
      let inline addInstance (key, state, metaData : 'FlexMeta, instance : 'LuceneObject) (store : T<_, _, _>) = 
          let value = 
              { MetaData = metaData
                State = state
  