Fix typo.

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index aa09f977f76c50588e199bd5c23d12d48198d162..1b6182a5e54c1c783017581802c634434f217464 100644 (file)
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -420,7 +420,7 @@ USA.
 
 (define (substring string #!optional start end)
   (let* ((len (string-length string))
-        (end (fix:end-index end (string-length string) 'substring))
+        (end (fix:end-index end len 'substring))
         (start (fix:start-index start end 'substring)))
     ;; It shouldn't be necessary to copy immutable substrings, but some of these
     ;; find their way to Edwin so we can't return a slice here.  We will