lilypond-1.5.35

diff --git a/scm/tex.scm b/scm/tex.scm
index 123f7dc4480605389de42f2ea8170cb380b5f4cd..4f1466880c178aff18141c9c7c443c37970833ed 100644 (file)
--- 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