anchor.diff:          index.Fields <- [| new Field.Dto(sessionId, FieldType.Dto.ExactText)
                              new Field.Dto(recordType, FieldType.Dto.ExactText)
                              // Source record
  -                           new Field.Dto(sourceId, FieldType.Dto.ExactText)
  +                           new Field.Dto(sourceId, FieldType.Dto.ExactText, AllowSort = true)
                              new Field.Dto(sourceRecordId, FieldType.Dto.ExactText)
                              new Field.Dto(sourceDisplayName, FieldType.Dto.Stored)
                              new Field.Dto(totalDupesFound, FieldType.Dto.Int)
  -                           new Field.Dto(sourceStatus, FieldType.Dto.Int)
  -                           // Target record
  -                           new Field.Dto(targetId, FieldType.Dto.ExactText)
  -                           new Field.Dto(targetRecordId, FieldType.Dto.ExactText)
  -                           new Field.Dto(targetDisplayName, FieldType.Dto.Stored)
  -                           new Field.Dto(targetScore, FieldType.Dto.Double)
  -                           new Field.Dto(quality, FieldType.Dto.Int)
  +                           new Field.Dto(sourceStatus, FieldType.Dto.Int, AllowSort = true)
  +                           new Field.Dto(targetRecords, FieldType.Dto.Text)
                              // Session related
                              new Field.Dto(sessionProperties, FieldType.Dto.Text)
                              new Field.Dto(misc, FieldType.Dto.Text) |]
  
positive.code:     let sourceDisplayName = "sourcedisplayname"
      let totalDupesFound = "totaldupesfound"
      let sourceStatus = "sourcestatus"
      let targetRecordId = "targetrecordid"
      let targetDisplayName = "targetdisplayname"
      let targetScore = "targetscore"
  
negative.code:         doc.Fields.Add(sessionProperties, formatter.SerializeToString(session))
          documentService.AddOrUpdateDocument(doc) |> ignore
      
      let writeDuplicates (sourceRecord : SourceRecord, documentService : IDocumentService) = 
          let sourceDoc = new Document.Dto(schema.IndexName, getId())
          sourceDoc.Fields.Add(sessionId, sourceRecord.SessionId)
          sourceDoc.Fields.Add(sourceId, sourceRecord.SourceId.ToString())
          sourceDoc.Fields.Add(sourceRecordId, sourceRecord.SourceRecordId)
          sourceDoc.Fields.Add(sourceDisplayName, sourceRecord.SourceDisplayName)
          sourceDoc.Fields.Add(sourceStatus, sourceRecord.SourceStatus)
          sourceDoc.Fields.Add(totalDupesFound, sourceRecord.TargetRecords.Count.ToString())
          sourceDoc.Fields.Add(recordType, sourceRecordType)
          sourceDoc.Fields.Add(targetRecords, formatter.SerializeToString(sourceRecord.TargetRecords))
          documentService.AddDocument(sourceDoc) |> ignore
          
  [<Sealed>]
  [<Name("POST-/indices/:id/duplicatedetection/:id")>]
  type DuplicateDetectionHandler(indexService : IIndexService, documentService : IDocumentService, searchService : ISearchService) = 
  