lilypond-1.5.34

diff --git a/scm/ps.scm b/scm/ps.scm
index 7f2aca9c3aa09f225a88dd4382c45a975fbcec53..1d8f8f3f4c354bca89e175cf36d2aaa5e6cdc65f 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -16,8 +16,8 @@
 
 (if (or (equal? (minor-version) "4")
        (equal? (minor-version) "3.4"))
-    (define-public (ps-output-expression expr)
-      (display (eval-in-module expr this-module)))
+    (define-public (ps-output-expression expr port)
+      (display (eval-in-module expr this-module) port))
 
     (define-public (ps-output-expression expr port)
       (display (eval expr this-module) port)))