Bug reported by Arthur: case-fold-string was dropping tail of string.

diff --git a/src/runtime/rexp.scm b/src/runtime/rexp.scm
index 07afb527d535d6e7c46b3b7174ff9e3dbd716102..cb679023381654368182da409bb7e6f6e283e11b 100644 (file)
--- a/src/runtime/rexp.scm
+++ b/src/runtime/rexp.scm
@@ -224,10 +224,12 @@ USA.
                                          (string (char-upcase char))
                                          (string (char-downcase char))
                                          "]"))
-                        (re-quote-string
-                         (substring s start index))
+                        (re-quote-string (substring s start index))
                         parts))
-           (apply string-append (reverse! parts)))))))
+           (apply string-append
+                  (reverse!
+                   (cons (re-quote-string (substring s start end))
+                         parts))))))))
 
 (define (case-fold-char-set c)
   (let loop ((chars (char-set-members c)) (chars* '()))