X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpaper-system.scm;h=6a391a3a0f41099739022ab74027e33b287e8f66;hb=64cdf08448ff26b3b038c7e6dd0b142644a6f192;hp=55e48ebed8dd402a2ad29b5a7388753667c33b8e;hpb=00a74939656d39f2e3323344cc365376513ac586;p=lilypond.git

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index 55e48ebed8..6a391a3a0f 100644
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -32,7 +32,7 @@
   (ly:stencil-extent (paper-system-stencil system) axis))
 
 (define-public (paper-system-staff-extents ps)
-  (ly:prob-property ps 'refpoint-Y-extent '(0 . 0)))
+  (ly:prob-property ps 'staff-refpoint-extent '(0 . 0)))
 
 (define-public (paper-system-annotate-last system layout)
   (let*
@@ -142,7 +142,7 @@
 				 "Y-extent" "next-padding" "space after next-padding")
       (annotate-extent-and-space paper-system-staff-extents
 				 (+ next-space next-padding)
-				 "refpoint-Y-extent" "next-space+padding"
+				 "staff-refpoint-extent" "next-space+padding"
 				 "space after next-space+padding"))
     (if estimate-extent
 	(set! annotations