diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index af6a70f2d0..11b9633f80 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -44,6 +44,7 @@
 
 + ui:
 
+- better help result ranking
 - page scrolling should be timer-based too
 - invoking interactor commands when interactor is busy -- still fucked
   because of grafting and ungrafting
diff --git a/library/modules.factor b/library/modules.factor
index 5473ccff7f..a6313e5268 100644
--- a/library/modules.factor
+++ b/library/modules.factor
@@ -25,7 +25,7 @@ TUPLE: module name files tests modified ;
 
 : modified? ( file module -- ? )
     dupd module-modified hash
-    swap resource-path file-modified < ;
+    swap resource-path file-modified [ < ] [ drop f ] if* ;
 
 : prefix-paths ( name seq -- newseq )
     [ "/" swap append3 ] map-with ;
diff --git a/library/words.factor b/library/words.factor
index ece9acd64b..3aa5c0a2b9 100644
--- a/library/words.factor
+++ b/library/words.factor
@@ -155,10 +155,11 @@ SYMBOL: bootstrapping?
 : xref-words ( -- )
     all-words [ uses ] crossref get build-graph ;
 
+: create-vocab ( name -- vocab )
+    vocabularies get [ nest ] bind ;
+
 : reveal ( word -- )
-    vocabularies get [
-        dup word-name over word-vocabulary nest set-hash
-    ] bind ;
+    dup word-name over word-vocabulary create-vocab set-hash ;
 
 TUPLE: check-create name vocab ;
 : check-create ( name vocab -- name vocab )