* print.c (print_error_message): Avoid int overflow.

2 files changed, 3 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ebe2e082e66..ab296dded6f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-04  Paul Eggert  <eggert@cs.ucla.edu>
 
+        * print.c (print_error_message): Avoid int overflow.
+
         * font.c (font_list_entities): Redo for clarity,
         so that reader need not know FONT_DPI_INDEX + 1 == FONT_SPACING_INDEX.
 
diff --git a/src/print.c b/src/print.c
index 3e0e168381b..c076e1ec973 100644
--- a/src/print.c
+++ b/src/print.c
@@ -929,7 +929,7 @@ print_error_message (Lisp_Object data, Lisp_Object stream, const char *context,
   else
     write_string_1 ("peculiar error", -1, stream);
 
-  for (i = 0; CONSP (tail); tail = XCDR (tail), i++)
+  for (i = 0; CONSP (tail); tail = XCDR (tail), i = 1)
     {
       Lisp_Object obj;