ui.tools.listener: need to check vocab and manifest not vocab and word.

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 06ee4c38f1d649c35cc75fd4661bf011ad84fe7a..d3d5d971466d0aa5264e07432501bd5a741c0ef3 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -318,7 +318,7 @@ M: listener-operation invoke-command
     [ [ clear ] \ clear ] dip (call-listener) ;
 
 : use-if-necessary ( word manifest -- )
-    [ [ vocabulary>> ] keep ] dip 2over and [
+    [ [ vocabulary>> ] keep ] dip pick over and [
         manifest [
             [ drop use-vocab ]
             [ name>> 1array add-words-from ] 2bi