--- a/docs/tfdoc.pl	Fri Nov 04 14:06:40 2016 +0200
+++ b/docs/tfdoc.pl	Fri Nov 04 14:09:32 2016 +0200
@@ -7,28 +7,20 @@
 use strict;
 use warnings;
 
-my %entities = (
-  "<" => "lt",
-  ">" => "gt",
-  "&" => "amp",
-);
-
 ## Convert special characters to HTML/XML entities
 sub xmlentities($)
 {
   my $value = $_[0];
-  $value =~ s/$_/\&$entities{$_}\;/g foreach (keys %entities);
+  $value =~ s/&/&amp;/g;
+  $value =~ s/</&lt;/g;
+  $value =~ s/>/&gt;/g;
   return $value;
 }
 
-my %xentities = (
-  "&" => "&amp;",
-);
-
 sub xmlentities2($)
 {
   my $value = $_[0];
-  $value =~ s/$_/$xentities{$_}/g foreach (keys %xentities);
+  $value =~ s/&/&amp;/g;
 
   my $str = "";
   my $state = 0;