(math-solve-get-int): Convert return value from

`math-get-from-counter' to a string before calling `concat' on it.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el
index c5ed7688d3d..0b21dd86f74 100644
--- a/lisp/calc/calcalg2.el
+++ b/lisp/calc/calcalg2.el
@@ -3160,7 +3160,8 @@
               (math-mul val (list 'calcFunc-an var-GenCount))
             (setq var-GenCount (math-add var-GenCount 1))
             (calc-refresh-evaltos 'var-GenCount))
-        (let* ((var (concat "n" (math-get-from-counter 'solve-int)))
+        (let* ((var (concat "n" (int-to-string
+                                 (math-get-from-counter 'solve-int))))
                (var2 (list 'var (intern var) (intern (concat "var-" var)))))
           (if (and range (eq solve-full 'all))
               (setq math-solve-ranges (cons (cons var2