Fix bug in `normalize-line-endings'.

(cherry picked from commit 6799b79a99f7d4e0e6c1c549cdf047f0cc832717)

diff --git a/src/xml/xml-parser.scm b/src/xml/xml-parser.scm
index b1eabf834114ba04da7dd63e3cb449dd480f09e4..77c1198352232e65f5fe314fcc42b623ff0adda6 100644 (file)
--- a/src/xml/xml-parser.scm
+++ b/src/xml/xml-parser.scm
@@ -901,7 +901,7 @@ USA.
                      (builder #\newline)
                      (builder (string-slice string start index))
                      (loop (step-over-eol index)))
-                   (builder (string-slice string start index)))))
+                   (builder (string-slice string start)))))
            (builder))))
       (if (if (default-object? always-copy?) #f always-copy?)
          (string-copy string)