diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index d3720d99974..58ed604c223 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -181,12 +181,12 @@ sub make_nav_panel {
 sub get_version_text {
     if ($PACKAGE_VERSION ne '' && $t_date) {
         return ("<span class=\"release-info\">"
-                . "Release $PACKAGE_VERSION,"
+                . "Release $PACKAGE_VERSION$RELEASE_INFO,"
                 . " documentation updated on $t_date.</span>");
     }
     if ($PACKAGE_VERSION ne '') {
         return ("<span class=\"release-info\">"
-                . "Release $PACKAGE_VERSION.</span>");
+                . "Release $PACKAGE_VERSION$RELEASE_INFO.</span>");
     }
     if ($t_date) {
         return ("<span class=\"release-info\">Documentation released on "
@@ -325,11 +325,11 @@ sub add_module_idx {
 	my $plat = '';
 	$key =~ s/<tt>([a-zA-Z0-9._]*)<\/tt>/\1/;
 	if ($ModulePlatforms{$key} && !$allthesame) {
-	    $plat = (" <em>(<span class='platform'>$ModulePlatforms{$key}"
+	    $plat = (" <em>(<span class=\"platform\">$ModulePlatforms{$key}"
 		     . '</span>)</em>');
 	}
 	print MODIDXFILE $moditem . $IDXFILE_FIELD_SEP
-              . "<tt class='module'>$key</tt>$plat###\n";
+              . "<tt class=\"module\">$key</tt>$plat###\n";
     }
     close(MODIDXFILE);
 
@@ -415,7 +415,7 @@ sub do_cmd_textohtmlinfopage {
     if ($t_date) {					# mostly ours
 	$the_version = ",\n$t_date";
 	if ($PACKAGE_VERSION) {
-	    $the_version .= ", Release $PACKAGE_VERSION";
+	    $the_version .= ", Release $PACKAGE_VERSION$RELEASE_INFO";
 	}
     }
     $_ = (($INFO == 1)