From 3ac5bf77fd1507ed08afbf826431155f60c58581 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 5 May 2008 03:05:08 +0000
Subject: [PATCH] fix up link when main doc has the (redundant) 'toc style

svn: r9650

original commit: 9389ac3a7ebd50f3fe520d70b218c4a07579f53f
---
 collects/scribble/html-render.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 5a5bd336..bca5fe1f 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -617,7 +617,8 @@
                     (if (or parent up-path)
                       (make-target-url
                        (if parent
-                         (if (toc-part? parent)
+                         (if (and (toc-part? parent)
+                                  (part-parent parent ri))
                            (derive-filename parent)
                            "index.html")
                          up-path)