# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1022698718 0
# Node ID 30f1ddc5073291c21c43a8794c812553fa8da799
# Parent  0a94e1efe9fc7e101619e7bbfdef447fb4780fa7
Fix previous change (oops).

diff -r 0a94e1efe9fc -r 30f1ddc50732 src/lread.c
--- a/src/lread.c	Wed May 29 18:57:57 2002 +0000
+++ b/src/lread.c	Wed May 29 18:58:38 2002 +0000
@@ -1480,8 +1480,10 @@
      (string, start, end)
      Lisp_Object string, start, end;
 {
+  Lisp_Object ret;
   CHECK_STRING (string);
-  Lisp_Object ret = read_internal_start (string, start, end);
+  /* read_internal_start sets read_from_string_index. */
+  ret = read_internal_start (string, start, end);
   return Fcons (ret, make_number (read_from_string_index));
 }