           ((eq 0 current-session-pos)
            (car (last sessions)))
           (t
-           (cl-nth-value (- current-session-pos 1) sessions)))))
+           (seq-elt sessions (- current-session-pos 1))))))
 
 (cl-defun mesh:find-missing-index (fn lst)
   (cl-letf ((indices (seq-map fn lst)))

          ((eq (- (length tabs) 1) current-tab-pos)
           (car tabs))
          (t
           (cl-nth-value (+ current-tab-pos 1) tabs)))))


(defmethod mesh:find-prev ((current-tab mesh:tab) tabs)

          ((eq 0 current-tab-pos)
           (car (last tabs)))
          (t
           (seq-elt tabs (- current-tab-pos 1))))))


(defmethod mesh:find-next ((current-session mesh:session) sessions)
