1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 82c7077ba91..d6a37644cc7 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -71,7 +71,7 @@
                                       (if (not (cdr var)) "")
                                       (if (not (cdr var)) 1))))
                (message (concat "Stored to variable \"%s\"" msg)
-                        (calc-var-name var)))
+                        (calc-var-name (car (car var)))))
              (setq var (cdr var))))))))
 
 (defun calc-store-plus (&optional var)