anchor.diff:             ;; shouldn't be here, quit calling next!
              )
             ((= cur-result num-results)
  -           (alet ((new-cursor (more sock token)))
  -             (finish future (next sock new-cursor))))
  +           (future-handler-case
  +             (alet ((new-cursor (more sock token)))
  +               (finish future (next sock new-cursor)))
  +             (error (e) (signal-error future e))))
             (t
              (finish future (cl-rethinkdb-reql::datum-to-lisp
                               (aref (cursor-results cursor) cur-result)
  
positive.code:     (setf (token query) (the fixnum token))
      ;; save the query with the token so it can be looked up later
      (save-cursor token cursor)
      ;; serialize/send the query
      (future-handler-case
        (alet* ((response-bytes (do-send sock (serialize-protobuf query)))
                (response (make-instance 'rdp:response))
  
negative.code:                             :object-type *object-type*)
                     token)))
      (incf (cursor-current-result cursor))
      future))
  
  (defun test (query-form)
  