diff --git a/extra/qualified/qualified.factor b/extra/qualified/qualified.factor
index e48714bc44..3ce6d30819 100644
--- a/extra/qualified/qualified.factor
+++ b/extra/qualified/qualified.factor
@@ -23,7 +23,7 @@ IN: qualified
     ] curry map zip ;
 
 : partial-vocab-ignoring ( words name -- assoc )
-    [ vocab-words keys swap diff ] keep partial-vocab ;
+    [ load-vocab vocab-words keys swap diff ] keep partial-vocab ;
 
 : EXCLUDE:
     #! Syntax: EXCLUDE: vocab => words ... ;
@@ -32,12 +32,12 @@ IN: qualified
 
 : FROM:
     #! Syntax: FROM: vocab => words... ;
-    scan expect=>
+    scan dup load-vocab drop expect=>
     ";" parse-tokens swap partial-vocab use get push ; parsing
 
 : RENAME:
     #! Syntax: RENAME: word vocab => newname
-    scan scan lookup [ "No such word" throw ] unless*
+    scan scan dup load-vocab drop lookup [ "No such word" throw ] unless*
     expect=>
     scan associate use get push ; parsing