diff --git a/collects/help/search.ss b/collects/help/search.ss
index 8061be10..fb653bac 100644
--- a/collects/help/search.ss
+++ b/collects/help/search.ss
@@ -1,14 +1,18 @@
 #lang scheme/base
 
 (require setup/dirs net/sendurl)
-(provide perform-search)
+(provide perform-search send-main-page)
 
 (define search-page "search/index.html")
 
 ;; Almost nothing to do here -- the real work is done in the browser,
 ;; using javascript.
+
+(define (send-main-page #:sub [sub #f]
+                        #: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))])
+    (send-url/file path #:fragment fragment #:query query)))
+
 (define (perform-search str)
-  (let* ([path (build-path (find-user-doc-dir) search-page)]
-         [path (if (file-exists? path)
-                 path (build-path (find-doc-dir) search-page))])
-    (send-url/file path #:query (format "q=~a" str))))
+  (send-main-page #:sub search-page #:query (format "q=~a" str)))