diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 0ecb693d80f..2164ace27d2 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -401,12 +401,14 @@ sub add_idx_hook {
 
 # In addition to the standard stuff, add label to allow named node files and
 # support suppression of the page complete (for HTML Help use).
+$MY_CONTENTS_PAGE = '';
 sub do_cmd_tableofcontents {
     local($_) = @_;
     $TITLE = $toc_title;
     $tocfile = $CURRENT_FILE;
     my($closures, $reopens) = preserve_open_tags();
     anchor_label('contents', $CURRENT_FILE, $_);	# this is added
+    $MY_CONTENTS_PAGE = "$CURRENT_FILE";
     join('', "<BR>\n\\tableofchildlinks[off]", $closures
 	 , make_section_heading($toc_title, 'H2'), $toc_mark
 	 , $reopens, $_);
@@ -652,7 +654,8 @@ sub make_head_and_body($$) {
             ($t_title ? " title='$t_title'" : ''),
             '>',
             ($HAVE_TABLE_OF_CONTENTS
-             ? "\n<link rel='contents' href='contents.html' title='Contents'>"
+             ? ("\n<link rel='contents' href='$MY_CONTENTS_PAGE'"
+                . ' title="Contents">')
              : ''),
             ($HAVE_GENERAL_INDEX
              ? "\n<link rel='index' href='genindex.html' title='Index'>"