anchor.diff:                  [|this.lockKey()|], 
                   [|(token.ToString ()) |> toValueStr|]
                ) |> Async.AwaitTask
  -        return result |> RedisResult.op_Explicit
  +        return int(result)
       }
       member private this.moveToSet set =
           async {
  
positive.code:                     this.client().SetContainsAsync (key, job.jobId |> toValueI64) 
                      |> Async.AwaitTask
                  
                  if contains then 
                      return! processJob handler job
                      
              | false -> ()
          }
  
      let processStalledJobs handler = 
          async {
              let! range = this.client().ListRangeAsync (this.toKey ("active"), 0L, -1L) |> Async.AwaitTask
              let! jobs = 
                  range 
                  |> Seq.map fromValueStr
                  |> Seq.map RedisKey.op_Implicit
                  |> Seq.map (fun x -> Job.fromId (this, x))
                  |> Async.Parallel
  
  
negative.code: 
      let processStalledJob handler (job:Job<'a>) = 
          async { 
              logger.Info "processing stalled job %i for queue %s" job.jobId name
              let! lock = job.takeLock token
              match lock with
              | true -> 
  