From b50d4c9b36621be6e96eff3d935d48454e49c39f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 17 Nov 2008 17:30:47 -0600
Subject: [PATCH] Fix help search again

---
 basis/help/html/html.factor    | 6 +++---
 extra/webapps/help/help.factor | 8 +++++---
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 82e83e60e0..6b90ba6937 100644
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -115,10 +115,10 @@ M: result link-href href>> ;
     [ [ title>> ] compare ] sort ;
 
 : article-apropos ( string -- results )
-    "docs/articles.idx" temp-file offline-apropos ;
+    "articles.idx" offline-apropos ;
 
 : word-apropos ( string -- results )
-    "docs/words.idx" temp-file offline-apropos ;
+    "words.idx" offline-apropos ;
 
 : vocab-apropos ( string -- results )
-    "docs/vocabs.idx" temp-file offline-apropos ;
+    "vocabs.idx" offline-apropos ;
diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index c209fe222e..3072f5d024 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -18,9 +18,11 @@ TUPLE: help-webapp < dispatcher ;
 
             help-dir set-current-directory
 
-            "search" value article-apropos "articles" set-value
-            "search" value word-apropos "words" set-value
-            "search" value vocab-apropos "vocabs" set-value
+            help-dir [
+                "search" value article-apropos "articles" set-value
+                "search" value word-apropos "words" set-value
+                "search" value vocab-apropos "vocabs" set-value
+            ] with-directory
 
             { help-webapp "search" } <chloe-content>
         ] >>submit ;
-- 
2.34.1