(calc-invent-variables): Convert integer to string.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 842290df259..cecbc41e7d2 100644
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -328,7 +328,8 @@
     (while (and (> n 0) names)
       (setq var (math-build-var-name (if (consp names)
                                          (car names)
-                                       (concat base (setq nn (1+ nn))))))
+                                       (concat base (int-to-string
+                                                     (setq nn (1+ nn)))))))
       (or (math-expr-contains (cons 'vec but) var)
           (setq vars (cons var vars)
                 n (1- n)))