ui.tools.listener.completion: sigh.

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 77f8602d0fbf022f424e433dc5f2754dfb1ae49b..f71eec969bd85773b3e3fcc402d623b3846ae900 100644 (file)
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -137,7 +137,7 @@ GENERIC#: accept-completion-hook 1 ( item popup -- )
 
 : accept-completion ( item table -- )
     find-completion-popup
-    [ [ first2 over [ word? ] 2dip ? ] dip insert-completion ]
+    [ [ first2 [ [ string? ] keep ] dip ? ] dip insert-completion ]
     [ [ first ] dip accept-completion-hook ]
     2bi ;