X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbook.cc;h=335507601d37fc46d3e1fa381e904b4b27421f82;hb=8bd6516dd00621b493cab85de02e28bae383ea58;hp=bf28d1b57dba46edf8673dac9096578c8e7b0853;hpb=00e3e15364b9d3c94cda1bcab9f889bb95f6832d;p=lilypond.git

diff --git a/lily/book.cc b/lily/book.cc
index bf28d1b57d..335507601d 100644
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -20,6 +20,7 @@ using namespace std;
 #include "warn.hh"
 #include "performance.hh"
 #include "paper-score.hh"
+#include "page-marker.hh"
 
 #include "ly-smobs.icc"
 
@@ -145,15 +146,16 @@ Book::process (Output_def *default_paper,
 		paper_book->add_performance (perf->self_scm ());
 	      else if (Paper_score *pscore = dynamic_cast<Paper_score *> (output))
 		{
-		  if (ly_is_module (score->header_))
-		    paper_book->add_score (score->header_);
+		  if (ly_is_module (score->get_header ()))
+		    paper_book->add_score (score->get_header ());
 		  paper_book->add_score (pscore->self_scm ());
 		}
 
 	      outputs = scm_cdr (outputs);
 	    }
 	}
-      else if (Text_interface::is_markup (scm_car (s)))
+      else if (Text_interface::is_markup_list (scm_car (s))
+	       || unsmob_page_marker (scm_car (s)))
 	paper_book->add_score (scm_car (s));
       else
 	assert (0);