From 2e81e3ae1fd85a009c55f7400d3f1ec3dce37dc8 Mon Sep 17 00:00:00 2001
From: janneke <janneke>
Date: Wed, 22 Sep 2004 13:33:53 +0000
Subject: [PATCH] (header-to-file): Fix.

---
 ChangeLog             | 4 ++++
 scm/framework-tex.scm | 3 +--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a84f0b47fb..8efee7fa34 100644
--- 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 3b0b9ad094..177b7942b5 100644
--- 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)
-- 
2.39.5