}
verbose_print("found " . $#entoc . " entries in TOC");
-my $entoc = " " . join('${Newline} ', @entoc);
-$entoc =~ s/\'//g;
+my $entoc = " " . join('${Newline} ', @entoc);
foreach my $package (@{$dh{DOPACKAGES}}) {
addsubstvar($package, "TOC:en", $entoc);