Close .xml output file in singing

diff --git a/scm/song.scm b/scm/song.scm
index 313480a85a04e42715eb417c08af51f8ead1ce77..8edacdf13c24d8b03d4888d5058ff0c9a3dfcc38 100644 (file)
--- a/scm/song.scm
+++ b/scm/song.scm
@@ -65,7 +65,8 @@
   (let ((port (open-output-file filename)))
     (write-header port tempo)
     (write-lyrics port music)
-    (write-footer port))
+    (write-footer port)
+    (close-port port))
   #f)