diff --git a/tv/gen_dns.pl b/tv/gen_dns.pl
index 98a6472d..aa5b6432 100755
--- a/tv/gen_dns.pl
+++ b/tv/gen_dns.pl
@@ -69,7 +69,7 @@ while (<CHAINES>) {
     if (/(.*):(.*)$/) {
 	my $name = "$1";
 	my $ip = "$2";
-	$name =~ s/[ .():,"]//g;
+	$name =~ s/[ .():,"+<>]//g;
 	$name = lc($name);
 	print DIRECT "$name IN A $ip\n";
 	if ($ip =~ /^\d+\.(\d+)\.(\d+)\.(\d+)$/) {