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

        (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)
        (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:set-current-session new-session)
      (mesh:tab--subst-session-list
       new-session current-session))))

