diff --git a/lisp/calc/calc-menu.el b/lisp/calc/calc-menu.el
index 6cc356f87f8..1e8259bdf62 100644
--- a/lisp/calc/calc-menu.el
+++ b/lisp/calc/calc-menu.el
@@ -1098,6 +1098,7 @@
   calc-mode-map
   "Menu for Calc."
   (list "Calc"
+        :visible '(eq major-mode 'calc-mode)
         calc-arithmetic-menu
         calc-scientific-function-menu
         calc-algebra-menu