diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el
index ad2b1741181..c3cc643fa53 100644
--- a/lisp/calc/calc-keypd.el
+++ b/lisp/calc/calc-keypd.el
@@ -172,13 +172,13 @@
 ;; |PACK|UNPK|INDX|BLD |LEN |... |
 
 (defvar calc-keypad-vector-menu
-  '( ( ( "SUM"   calc-vector-sum calc-vector-alt-sum calc-vector-mean )
+  `( ( ( "SUM"   calc-vector-sum calc-vector-alt-sum calc-vector-mean )
        ( "PROD"  calc-vector-product nil calc-vector-sdev )
        ( "MAX"   calc-vector-max calc-vector-min calc-vector-median )
-       ( "MAP*"  (lambda () (interactive)
-		   (calc-map '(2 calcFunc-mul "*"))) )
-       ( "MAP^"  (lambda () (interactive)
-		   (calc-map '(2 calcFunc-pow "^"))) )
+       ( "MAP*"  ,(lambda () (interactive)
+		    (calc-map '(2 calcFunc-mul "*"))) )
+       ( "MAP^"  ,(lambda () (interactive)
+		    (calc-map '(2 calcFunc-pow "^"))) )
        ( "MAP$"  calc-map-stack ) )
      ( ( "MINV"  calc-inv )
        ( "MDET"  calc-mdet )