Fix typo in history completion

diff --git a/library/ui/tools/search.factor b/library/ui/tools/search.factor
index 4251f41099b555082d6fb2dc02d7084b354fe87b..e88301cc7d4f589bef99b4df8c619e817f680353 100644 (file)
--- a/library/ui/tools/search.factor
+++ b/library/ui/tools/search.factor
@@ -87,5 +87,5 @@ M: live-search focusable-child* live-search-field ;
 
 : <history-search> ( string seq action -- gadget )
     swap [ string-completions ] curry
-    [ dup <input> write-object ]
+    [ first dup <input> write-object ]
     <live-search> ;