From 3bcae6c7531a4d6ce27a0d6341e79edb44768a54 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Oct 2018 22:19:58 -0700
Subject: [PATCH] Fix thinko.

---
 src/xml/xml-struct.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/xml/xml-struct.scm b/src/xml/xml-struct.scm
index 2e3663224..ef8a3117d 100644
--- 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
-- 
2.25.1