X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ftoc-init.ly;h=32eeb462f8e77e0f3893058708334d68ddafc2b9;hb=cfb3105646db41346c7739ff8f8bc089b4c66c84;hp=5511ed4689fcd4a4f13be5494d12dfb64dcc610f;hpb=26a079ca2393d053315ef8dbef626c897dc9645a;p=lilypond.git

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index 5511ed4689..32eeb462f8 100644
--- a/ly/toc-init.ly
+++ b/ly/toc-init.ly
@@ -7,6 +7,7 @@
   #f)
 
 #(let ((toc-item-list (list)))
+   (call-after-session (lambda () (set! toc-item-list '())))
    (set! add-toc-item!
 	 (lambda (markup-symbol text)
 	   (let ((label (gensym "toc")))
@@ -24,7 +25,7 @@
 \paper {
   tocTitleMarkup = \markup \huge \column {
     \fill-line { \null "Table of Contents" \null }
-    \hspace #1
+    \null
   }
   tocItemMarkup = \markup \fill-line {
     \fromproperty #'toc:text \fromproperty #'toc:page