Fix typo from previous change.

diff --git a/src/xml/xml-struct.scm b/src/xml/xml-struct.scm
index 9ad54bb801a28d521adea875cdf40686b8a1519a..92851f8bd59d62e0fd7297c004e8a660b3fcfa29 100644 (file)
--- a/src/xml/xml-struct.scm
+++ b/src/xml/xml-struct.scm
@@ -260,7 +260,8 @@ USA.
           (let ((end (string-length object)))
             (and (fix:> end 0)
                  (char-alphabetic? (string-ref object 0))
-                 (string-composed-of? object char-set:xml-encoding 1 end))))))
+                 (string-composed-of? (string-slice object 1)
+                                      char-set:xml-encoding))))))
 (register-predicate! xml-encoding? 'xml-encoding '<= string?)
 
 (define char-set:xml-encoding