X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=b2c047a6517656f7d0726c5b651bccf45fbb57f2;hb=275fe97ee7f8c1656fd7e11245a7931420729401;hp=6b2e3cff6bc9e98c8ce6f942599a44bced56ea89;hpb=8801288941559733f70e131b7a42f77a3ba01863;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 6b2e3cff6b..b2c047a651 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -136,8 +136,8 @@
 
   (define (glyph-spec w x y g)
     (let ((prefix (if (string? g) "/" "")))
-      (ly:format "~4f ~4f ~a~a"
-		 (+ w x)  y
+      (ly:format "~4f ~4f ~4f ~a~a"
+		 w x y
 		 prefix g)))
   
   (ly:format