diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index ef604d58bca..3baaa376323 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -382,7 +382,7 @@ The output is in landscape format, one month to a page."
          (x-popup-menu
           event
           (list
-           "Date Menu"
+           (concat (calendar-date-string date) " (Gregorian)")
            (append
             (list
              (concat (calendar-date-string date) " (Gregorian)")