anchor.diff:      
       /// Create index settings from the Index Dto
       let createIndexSetting (index : Index.Dto, analyzerService) = 
  -        try
  -            withIndexName (index.IndexName, "")
  +        try 
  +            withIndexName (index.IndexName, Constants.DataFolder +/ index.IndexName)
               |> withShardConfiguration (index.ShardConfiguration)
               |> withIndexConfiguration (index.IndexConfiguration)
               |> withScripts (index.Scripts)
  
positive.code:     /// Get the highest modified index value from the shard   
      let getMaxModifyIndex (r : IndexReader) = 
          let mutable max = 0L
          for i = 0 to r.Leaves().size() do
              let ctx = r.Leaves().get(i) :?> LeafReaderContext
              let reader = ctx.Reader()
              let nDocs = reader.getNumericDocValues ("modifyindex")
  
negative.code:                 directory : FlexLucene.Store.Directory) = 
          let iw = new FileWriter(directory, config)
          let commitData = iw.GetCommitData()
          let generation = (commitData.getOrDefault (Constants.generationLabel, 1L)) :?> int64
          // It is a newly created index. 
          if generation = 1L then 
              // Add a dummy commit so that seacher Manager could be initialized
              generation
              |> getCommitData
              |> iw.SetCommitData
              |> iw.Commit
          let trackingWriter = new TrackingIndexWriter(iw)
          let searcherManager = new SearcherManager(directory, new SearcherFactory())
          let modifyIndex = DirectoryReader.Open(iw, true) |> getMaxModifyIndex
          let logPath = basePath +/ "shards" +/ shardNumber.ToString() +/ "txlogs"
          
          let state = 
              { IndexWriter = iw
                TrackingIndexWriter = trackingWriter
                SearcherManager = searcherManager
                Generation = generation
                CommitDuration = int64 commitDuration
                LastCommitTime = 0L
  