From 7cab8b6af952adfdb72a0c223d37cf4d90d7b90c Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 1 Oct 2002 09:53:11 +0000
Subject: [PATCH] *** empty log message ***

---
 scm/to-xml.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index dbd12f34ed..25298fa0b7 100644
--- 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)))
-- 
2.39.5