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

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

diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el
index c5ed7688d3d67835b723d7ffc5b676b85f3d9b45..0b21dd86f74e938ab24af7074a39a024f15d6af7 100644 (file)
--- 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