diff --git a/LDP/builder/ldp_print/VERSION b/LDP/builder/ldp_print/VERSION
index 07661c59..fc50cb47 100644
--- a/LDP/builder/ldp_print/VERSION
+++ b/LDP/builder/ldp_print/VERSION
@@ -1 +1 @@
-0.4, 2001-10-12
+0.5, 2001-11-27
diff --git a/LDP/builder/ldp_print/fix_print_html.lib b/LDP/builder/ldp_print/fix_print_html.lib
index 4e4dc943..ffd970c6 100644
--- a/LDP/builder/ldp_print/fix_print_html.lib
+++ b/LDP/builder/ldp_print/fix_print_html.lib
@@ -12,6 +12,7 @@
 #     03Apr2001 - 0.2 - fix for <preface>
 #     05Jul2001 - 0.3 - fix for <tt> and -f
 #     12Oct2001 - 0.4 - fix for sections; loop thru both files (body/title)
+#     27Nov2001 - 0.5 - fixed bug in determining where doc-index lies
 #
 
 sub fix_print_html {
@@ -116,6 +117,7 @@ sub fix_html {
    my($buf, $is_article) = @_;
    my($indx) = -1;
 
+
    # make corrections and write out the file
    #
 
@@ -128,10 +130,10 @@ sub fix_html {
    }
    $$buf =~ s/<H1(\nCLASS="INDEXDIV"\n)(.*?)<\/H1/<H2$1$2<\/H2/gims;
    if( ($indx = rindex($$buf, "<H1\n><A\nNAME=\"DOC-INDEX\"")) > -1 ) {
-       $$buf = substr($buf, 0, $indx);
+       $$buf = substr($$buf, 0, $indx);
        $$buf .= "\n<\/BODY>\n<\/HTML>\n\n";
    } elsif( ($indx = rindex($$buf, "<H1\n><A\nNAME=\"doc-index\"")) > -1 ) {
-       $$buf = substr($buf, 0, $indx);
+       $$buf = substr($$buf, 0, $indx);
        $$buf .= "\n<\/BODY>\n<\/HTML>\n\n";
    }
    $$buf =~ s/\&\#13;//g;