From 461615ca6df9fe56d043812470be4d7f299240c5 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 3 Apr 2013 12:53:17 +0200
Subject: [PATCH] Issue 3283: Stop table of contents bleedover

---
 ly/toc-init.ly | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index 5511ed4689..3a3f6e08ab 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")))
-- 
2.39.2