Fix apropos

diff --git a/core/tools/word-tools.factor b/core/tools/word-tools.factor
index 629ee3a08a591bb6f09dbb21d20279107bfd2959..6c756bc9f98abded16a4f7e5a0a7003432db1843 100644 (file)
--- a/core/tools/word-tools.factor
+++ b/core/tools/word-tools.factor
@@ -51,4 +51,4 @@ generic completion ;
     [ word-name ] swap completions ;
 
 : apropos ( str -- )
-    all-words word-completions [ . ] each ;
+    all-words word-completions [ summary ] each ;