(calc-copy-variable): Fix mistyped variable name. Display variable

name differently in message.

diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index a3c401e734eef9acd074d84172bfecd782b13201..9323952180144a49596f16a359948f12079e9c6d 100644 (file)
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -373,9 +373,10 @@
    (if var1
        (let ((value (calc-var-value var1)))
         (or value
-            (error "No such variable: \"%s\"" (calc-var-name var)))
+            (error "No such variable: \"%s\"" (calc-var-name var1)))
         (or var2 (setq var2 (calc-read-var-name
-                             (format "Copy variable: %s, to: " var1))))
+                             (format "Copy variable: %s, to: " 
+                                      (calc-var-name var1)))))
         (if var2
             (calc-store-value var2 value ""))))))