Fix #268.

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index 8c2b5dc71025a7e18fe5deef9dd5c866e8ff560a..8acf4e8d1049f391e88203219d34be54065c8fd1 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -70,7 +70,8 @@ size. SZ is in points"
 (define-safe-public (set-global-staff-size sz)
   "Set the default staff size, where SZ is thought to be in PT."
   (let* ((current-mod (current-module))
-        (pap (eval '$defaultpaper current-mod))
+        (parser (eval 'parser current-mod))
+        (pap (ly:parser-lookup parser '$defaultpaper))
         (in-layout? (or (module-defined? current-mod 'is-paper)
                         (module-defined? current-mod 'is-layout)))