From 3ccf6dcc4da3be30091e0abe7ddf5b4465429f41 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:05:55 +0000
Subject: [PATCH] lilypond-1.5.35

---
 scm/tex.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scm/tex.scm b/scm/tex.scm
index 123f7dc448..4f1466880c 100644
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -130,7 +130,7 @@
     (define (embedded-ps expr)
       (let ((ps-string
 	     (with-output-to-string
-	       (lambda () (ps-output-expression expr)))))
+	       (lambda () (ps-output-expression expr (current-output-port))))))
 	(string-append "\\embeddedps{" ps-string "}")))
     (define (embedded-ps expr)
       (let
-- 
2.39.5