          (setq mesh:*session-list* nil)
          (jump-to-register mesh:window-configuration-name)
          (mesh:unset-inside-session)
+         (mesh:unset-current-session)
          (seq-each
           (lambda (tab)
             (mesh:tab--kill-panes tab))


(cl-defun mesh:session--new (session-name sessions)
  (if-let ((found (cl-find-if (lambda (s) (cl-equalp (mesh:get-name s)
                                                     session-name))
                              sessions)))
      found
    (cl-letf ((new-tab (mesh:tab--new

  (cl-letf ((new-session-name
             (if (cl-find-if
                  (lambda (session) (cl-equalp new-session-name
                                          (mesh:get-name session)))
                  (mesh:session-list))
                 (concat new-session-name "*")
               new-session-name)))
