Fix thinko.

diff --git a/src/xml/xml-struct.scm b/src/xml/xml-struct.scm
index 2e3663224e6211ea3f012de1c7152e6c45dc9594..ef8a3117d42ef56f9199457018632d34fce83d15 100644 (file)
--- a/src/xml/xml-struct.scm
+++ b/src/xml/xml-struct.scm
@@ -596,9 +596,9 @@ USA.
 
 (define (nmtokens->string nmtokens)
   (let ((builder (string-builder)))
-    (for-each (lambda (nmtokens)
+    (for-each (lambda (nmtoken)
                (if (not (builder 'empty?))
                    (builder #\space))
-               (builder (symbol->string (car nmtokens))))
+               (builder (symbol->string nmtoken)))
              nmtokens)
     (builder)))
\ No newline at end of file