From cb550a460a9f906d315fce7a362443b0403ab099 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 29 Jul 2008 04:32:58 +0000
Subject: [PATCH] search-context has the proper suffix now

svn: r10953

original commit: f30efeb8c3f28caf5a7e2b1d44c47dc667bc49de
---
 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 9837ae92..5939a6dc 100644
--- a/collects/help/search.ss
+++ b/collects/help/search.ss
@@ -23,7 +23,7 @@
   ;; search page is refreshed it won't reset the context).
   (let* ([label   (and (list? context) (= 2 (length context)) (cadr context))]
          [context (if (pair? context) (car context) context)]
-         [page    (if context "search-context.htm" "index.html")]
+         [page    (if context "search-context.html" "index.html")]
          [query   (format "q=~a" (uri-encode str))]
          [query   (if context
                     (format "~a&hq=~a~a"