Issue 3283: Stop table of contents bleedover

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index 5511ed4689fcd4a4f13be5494d12dfb64dcc610f..3a3f6e08ab1724f432285706c722792342b2dbee 100644 (file)
--- 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")))