From: fred <fred>
Date: Wed, 27 Mar 2002 02:05:55 +0000 (+0000)
Subject: lilypond-1.5.35
X-Git-Tag: release/1.5.59~311
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3ccf6dcc4da3be30091e0abe7ddf5b4465429f41;p=lilypond.git

lilypond-1.5.35
---

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