         (oset new-current-session :tabs
               (cl-subst new-current-tab current-tab (mesh:get-tabs current-session)))
         (oset new-current-session :current-tab prev-tab)
+        (mesh:set-current-session new-session)
         (setq mesh:*session-list*
               (cl-subst new-current-session current-session mesh:*session-list*))
         (set-window-configuration (mesh:get-conf prev-tab))))))

      (oset new-session :tabs
            (cl-subst new-tab current-tab
                      (mesh:get-tabs current-session)))
      (mesh:tab--subst-session-list
       new-session current-session))))


              (append (mesh:get-tabs new-session)
                      (list new-tab)))
        (oset new-session :current-tab new-tab)
        (mesh:set-current-session new-session)
        (setq mesh:*session-list*
              (cl-subst new-session current-session
                        mesh:*session-list*))))))
