diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 0ac31727ef4..8164ec51498 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1047,7 +1047,7 @@ The argument I is the tab index, and CURRENT-P is non-nil
 when the tab is current.  Return the result as a keymap."
   (append
    `((,(intern (format "sep-%i" i)) menu-item ,(tab-bar-separator) ignore))
-   `((,(intern (format "group-%i" i))
+   `((,(intern (if current-p "current-group" (format "group-%i" i)))
       menu-item
       ,(if current-p
            (condition-case nil