webapps.search: adding a header to the search page

[factor.git] / extra / webapps / help / help.factor

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index c0ab8abdcdb7c5d30d3216a18938668e40455b6d..177386fd147234c072c7998a39cd15ddf699005c 100644 (file)
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -20,6 +20,7 @@ TUPLE: help-webapp < dispatcher ;
         { help-webapp "search" } >>template
         [
             "search" param [ unicode:blank? ] trim [
+                dup "search" set-value
                 f swap help-dir [
                     [ article-apropos ?links "articles" set-value ]
                     [ word-apropos ?links "words" set-value ]