X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=73c147c1599d4dfd1b2acf4108506ff7bc54de77;hb=4c3d889f53815691f71e2c9fc498947dcb957936;hp=c09e7572d5d3d0a77f687ca37c71e2c6e6c0bd3a;hpb=91a1a10b63fbc3d853cb3956ec924cd0439e06cb;p=lilypond.git

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index c09e7572d5..73c147c159 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -76,11 +76,11 @@
 	 (is-eps (string-match "\\.eps$" name))
 	 (paper-size-string (if is-eps
 				" -dEPSCrop "
-				(format "-dDEVICEWIDTHPOINTS=~,2f \
--dDEVICEHEIGHTPOINTS=~,2f "
+				(ly:format "-dDEVICEWIDTHPOINTS=~$ \
+-dDEVICEHEIGHTPOINTS=~$ "
 					paper-width paper-height )))
 
-	 (cmd (format #f
+	 (cmd (simple-format #f
 		      "~a\
  ~a\
  ~a\