Help search in UI bug

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 3d6561dcbedf827818c3148e388b82781b27dd52..1e2299056e62c761b23450af5955157b810a41f4 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -11,6 +11,7 @@
 - better help result ranking
 - minibuffer should show a title
 - clean up listener's minibuffer-related code
+- help search looks funny
 
 + ui:
 

diff --git a/library/ui/tools/search.factor b/library/ui/tools/search.factor
index 5a8bd284ace1af1edeba3dcbe72a0d4881656ba1..1b69e441f955d818df8f3bc63b5f105ee0652f14 100644 (file)
--- a/library/ui/tools/search.factor
+++ b/library/ui/tools/search.factor
@@ -68,7 +68,7 @@ M: live-search focusable-child* live-search-field ;
 : <help-search> ( string action -- gadget )
     \ first add*
     [ search-help ]
-    [ [ second ($link) ] make-pane ]
+    [ [ first ($link) ] make-pane ]
     <live-search> ;
 
 : file-completion. ( pair -- )