X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=8cb006d70ae48952f60003be88fedd092647519d;hb=5983075187669cba3eea0268b9eeda69f7ed2e94;hp=a6e60d48c9104a9e6f76a09cf8896444316d59fa;hpb=d372176add53661074bf57362acbdf31eb8350cb;p=lilypond.git

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a6e60d48c9..8cb006d70a 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -495,11 +495,10 @@
 
     ;; skip booktitles.
     (if (and
-	 (not
-	  (ly:get-option 'preview-include-book-title))
-	 (< 1 (length systems))
-	 (paper-system-title? (list-ref systems 0))
-	 (paper-system-title? (list-ref systems 1)))
+	 (not (ly:get-option 'preview-include-book-title))
+	 (pair? systems)
+	 (ly:paper-system-property (car systems) 'is-book-title #f))
+
 	(set! systems (cdr systems)))
 
     (for-each