(header-to-file): Fix.

diff --git a/ChangeLog b/ChangeLog
index a84f0b47fb8281f2f306b99d95888fccbcbbf6ad..8efee7fa34badf6ac95e5ffd558ced4d4654f3de 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-22  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+       * scm/framework-tex.scm (header-to-file): Fix.
+
 2004-09-22  Werner Lemberg  <wl@gnu.org>
 
        * lily/parser.yy <score_body>: Fix typo.

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 3b0b9ad09462abcf06abfb4e5b46130422cfc981..177b7942b5cae107878bf9b81d93f87b02051b82 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -80,8 +80,7 @@
   (display
    (format (_ "Writing header field `~a' to `~a'...")
           key
-          (if (equal? "-" fn) "<stdout>" fn)
-          (current-error-port))
+          (if (equal? "-" fn) "<stdout>" fn))
    (current-error-port))
   (if (equal? fn "-")
       (display val)