(math-add-symb-fancy): Check the length of the correct variable.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d84868c746c..d8beecfd4a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
         * calc/calcalg2.el (calc-sum-rec): Fix the sum when the lower
         limit is 0.
 
+        * calc/calc-arith.el (math-add-symb-fancy): Check the length of
+        the correct variable.
+
 2006-01-20  Carsten Dominik  <dominik@science.uva.nl>
 
         * textmodes/org.el: (org-open-at-point): Fixed bug with matching a
diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index dc341cb7aec..64e0b4b7d10 100644
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -1201,7 +1201,7 @@
                (and (math-known-scalarp b)
                     (math-add (nth 1 a) b))))
       (and (eq (car-safe b) 'calcFunc-idn)
-           (= (length a) 2)
+           (= (length b) 2)
            (or (and (math-square-matrixp a)
                     (math-add a (math-mimic-ident (nth 1 b) a)))
                (and (math-known-scalarp a)