+void
+Paper_book::add_score_title (SCM header)
+{
+ Stencil title = score_title (header);
+ if (title.is_empty ())
+ title = score_title (header_);
+ if (!title.is_empty ())
+ {
+ // TODO: init properties, from where?
+ Paper_system *ps = new Paper_system (title, SCM_EOL);
+ ps->set_property ("is-title", SCM_BOOL_T);
+ systems_ = scm_cons (ps->self_scm (), systems_);
+ ps->unprotect ();
+ set_system_penalty (ps, header);
+ }
+}
+