diff --git a/basis/present/present-tests.factor b/basis/present/present-tests.factor
index 8fc494918b..6b69277e6c 100644
--- a/basis/present/present-tests.factor
+++ b/basis/present/present-tests.factor
@@ -6,7 +6,7 @@ vocabs.hierarchy ;
 { "Hi" } [ "Hi" present ] unit-test
 { "+" } [ \ + present ] unit-test
 { "kernel" } [ "kernel" lookup-vocab present ] unit-test
-{ } [ disk-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
+{ } [ all-disk-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
 
 { "1+1j" } [ C{ 1 1 } present ] unit-test
 { "1-1j" } [ C{ 1 -1 } present ] unit-test
diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor
index e439a0e3d1..e1c1aec71a 100644
--- a/extra/readline-listener/readline-listener.factor
+++ b/extra/readline-listener/readline-listener.factor
@@ -29,7 +29,7 @@ M: readline-reader prompt.
     all-words [ name>> ] map! prefixed ;
 
 : prefixed-vocabs ( prefix -- vocabs )
-    disk-vocabs-recursive filter-vocabs [ name>> ] map! prefixed ;
+    all-disk-vocabs-recursive filter-vocabs [ name>> ] map! prefixed ;
 
 : prefixed-colors ( prefix -- colors )
     named-colors prefixed ;