* The grand 2005-2006 replace.

[lilypond.git] / lily / paper-book.cc

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 99be33adeded7501cc2a6832dd17f805370a6501..fc344239868f5f9632e688e045fe10f9d9df0b67 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c) 2004--2006 Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 #include "paper-book.hh"
@@ -56,11 +56,8 @@ int
 Paper_book::print_smob (SCM smob, SCM port, scm_print_state*)
 {
   Paper_book *b = (Paper_book *) SCM_CELL_WORD_1 (smob);
-
-  scm_puts ("#<", port);
-  scm_puts (b->class_name (), port);
-  scm_puts (" ", port);
-  scm_puts (">", port);
+  (void)b;
+  scm_puts ("#<Paper_book>", port);
   return 1;
 }
 
@@ -249,6 +246,7 @@ Paper_book::add_score_title (SCM header)
       */
       SCM props = paper_->lookup_variable (ly_symbol2scm ("score-title-properties"));
       Paper_system *ps = new Paper_system (title, props);
+      systems_ = scm_cons (ps->self_scm (), systems_);
       ps->unprotect ();
       set_system_penalty (ps, header);
     }