fix up link when main doc has the (redundant) 'toc style

svn: r9650 original commit: 9389ac3a7ebd50f3fe520d70b218c4a07579f53f
2008-05-05 03:05:08 +00:00 · 2008-05-05 03:05:08 +00:00 · 3ac5bf77fd
commit 3ac5bf77fd
parent ce8852492a
1 changed files with 2 additions and 1 deletions
--- 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)