From 593ba060d320447482c43b4596b056859a6d38cb Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 13 Nov 2006 05:19:23 +0000
Subject: [PATCH] Fix typo in history completion

---
 library/ui/tools/search.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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> ;