diff --git a/toc-for-chunked.tcl b/toc-for-chunked.tcl
index 08ea1b1..9189966 100644
--- a/toc-for-chunked.tcl
+++ b/toc-for-chunked.tcl
@@ -6,7 +6,7 @@
set file [open "[lindex $argv 0]/index.html"]
regexp {
.+?
} [read $file] replacement
close $file
-set replacement "$replacement"
+set replacement "
[regsub -all {&|\\[0-9]} $replacement {\\&}]"
# Add the table of contents to all other html files.
foreach path [glob -directory [lindex $argv 0] {*.html}] {
@@ -16,7 +16,7 @@ foreach path [glob -directory [lindex $argv 0] {*.html}] {
set file [open $path r+]
set data [read $file]
- regsub {]+)>} $data [regsub -all {\W} $replacement {\\&}] data
+ regsub {]+)>} $data $replacement data
regsub {} $data {
} data
seek $file 0
puts $file $data