 
 (cl-defun mesh:session--new (session-name sessions)
   (if-let ((found (cl-find-if (lambda (s) (cl-equalp (mesh:get-name s)
-                                                     session-name))
+                                                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)))

         (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))
