From 8509027428ca3537a339d805214172e447c835c1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 18 Jan 2009 23:41:21 -0600
Subject: [PATCH] UI listener: Status bar now shows summary for vocabs that are
 not loaded

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

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 1e32fac0ce..24b6dea803 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -46,7 +46,7 @@ completion-popup ;
     [ one-word-elt <element-model> 1/3 seconds <delay> ] keep
     '[
         _ dup vocab-completion?
-        [ drop vocab ] [ interactor-use assoc-stack ] if
+        [ drop >vocab-link ] [ interactor-use assoc-stack ] if
     ] <filter> ;
 
 : <interactor> ( output -- gadget )