diff --git a/library/ui/tools/search.factor b/library/ui/tools/search.factor
index 4251f41099..e88301cc7d 100644
--- 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> ;