*** empty log message ***

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