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:             | NewJob -> newJobEvent.Trigger(eventData)
              | _ -> failwith "Not a job event!"
          }
      member internal x.client = dbFactory
negative.code: 
      let rec getNextJob () =
          async {
              logger.Debug "getting next job for queue %s" name
              let! (gotIt:RedisValue) = this.moveJob(this.toKey("wait"), this.toKey("active")) 
              match gotIt with 
              | g when g.HasValue -> return! this.getJob (fromValueI64 g)
              | _ -> 
                  do! this.on.NewJob |> Async.AwaitEvent |> Async.Ignore
                  return! getNextJob ()
          }
  
      let rec processJobs handler = 
          async {
              logger.Debug "processing jobs for queue %s" name
              let! job = getNextJob ()
              do! processJob handler job
              if not(paused) then 
  