*** empty log message ***

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index dbd12f34ed8c169260f4b67beae7516b3dcb91a7..25298fa0b7b9ba4c1564a2171f46cd3d1c4b765a 100644 (file)
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -181,8 +181,9 @@ is then separated.
      (if (pitch? p)
         (dump-pitch p port))
      (if (pair? es)
-        (begin
-          (map (lambda (x) (music-to-xml-helper x port)) es)))
+        (map (lambda (x) (music-to-xml x port)) es)
+        )
+
      (if (music? e)
         (begin
           (music-to-xml-helper e port)))