fix an ancient typo, responsible for segfault or garbage when operating on vectors

ChangeLog

@@ -1,3 +1,8 @@
+2010-07-30  Robert Larice
+ * src/frontend/evaluate.c :
+    fix an ancient typo, responsible for segfault or garbage
+      when operating on vectors
+
 2010-07-30  Robert Larice
  * src/main.c :
     need an #ifdef for one of the just added #includes

src/frontend/evaluate.c

@@ -264,7 +264,7 @@ doop(char what,
             for (i = 0; i < v2->v_length; i++)
                 c2[i] = v2->v_compdata[i];
             if (length > 0)
-                lc = v2->v_compdata[v1->v_length - 1];
+                lc = v2->v_compdata[v2->v_length - 1];
             for ( ; i < length; i++)
                 c2[i] = lc;
         }