diff --git a/ChangeLog b/ChangeLog
index 7aba82e86..3c894103c 100644
--- a/ChangeLog
+++ b/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
diff --git a/src/frontend/evaluate.c b/src/frontend/evaluate.c
index 9d6a1b1d7..84b8193a2 100644
--- a/src/frontend/evaluate.c
+++ b/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;
         }