From 8356a7f61f348f66a279a2575c19b0c195bfb966 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 3 Jun 2008 16:05:03 +0000
Subject: [PATCH] fix sub argument to send-main-page

svn: r10108

original commit: a50e7011ea76e415855a7d69846810b475226a3b
---
 collects/help/search.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/help/search.ss b/collects/help/search.ss
index fb653bac..937ec5f9 100644
--- a/collects/help/search.ss
+++ b/collects/help/search.ss
@@ -8,7 +8,7 @@
 ;; Almost nothing to do here -- the real work is done in the browser,
 ;; using javascript.
 
-(define (send-main-page #:sub [sub #f]
+(define (send-main-page #:sub [sub "index.html"]
                         #:fragment [fragment #f] #:query [query #f])
   (let* ([path (build-path (find-user-doc-dir) sub)]
          [path (if (file-exists? path) path (build-path (find-doc-dir) sub))])