New upstream version 2.19.65

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

diff --git a/lily/book-scheme.cc b/lily/book-scheme.cc
index af0cb6263221e745f6b5d27d2dce49ba6fa9668c..c63f47dd078b49597c22ee8aeaef54368cb564d6 100644 (file)
--- a/lily/book-scheme.cc
+++ b/lily/book-scheme.cc
@@ -152,7 +152,7 @@ LY_DEFINE (ly_book_header, "ly:book-header",
 {
   LY_ASSERT_SMOB (Book, book, 1);
   Book *b = unsmob<Book> (book);
-  return b->header_ ? b->header_ : SCM_BOOL_F;
+  return ly_is_module (b->header_) ? b->header_ : SCM_BOOL_F;
 }
 
 LY_DEFINE (ly_book_set_header_x, "ly:book-set-header!",