diff --git a/functional-tests/xml.scm b/functional-tests/xml.scm
index b12145c..ef1dc97 100644
--- a/functional-tests/xml.scm
+++ b/functional-tests/xml.scm
@@ -26,7 +26,7 @@
 
   (define (%open-tag sym attrs end)
     (cat (dsp "<")
-         (dsp sym)
+         (dsp (to-attribute-name sym))
          (dsp " ")
          (apply cat (intersperse (dsp " ")
                                  (map attribute attrs)))
@@ -40,7 +40,7 @@
 
   (define (close-tag sym)
     (cat (dsp "</")
-         (dsp sym)
+         (dsp (to-attribute-name sym))
          (dsp ">")))
 
   (define (tag sym attrs . body)