diff --git a/library/tools/word-tools.factor b/library/tools/word-tools.factor
index 2d300dcc83..c1aef3287c 100644
--- a/library/tools/word-tools.factor
+++ b/library/tools/word-tools.factor
@@ -99,6 +99,8 @@ math namespaces prettyprint sequences strings styles ;
 : apropos ( str -- )
     completions [
         first3 dup presented associate [
-            word-name fuzzy. drop
+            dup word-vocabulary write bl word-name fuzzy.
+            " (score: " swap >fixnum number>string ")" append3
+            write
         ] with-nesting terpri
     ] each ;