1 files changed, 1 insertions, 1 deletions

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