diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 16d8614115..0523a574b4 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -37,6 +37,9 @@ SYMBOL: add-vocab-root-hook
 SYMBOL: root-cache
 root-cache [ H{ } clone ] initialize
 
+: clear-root-cache ( -- )
+    root-cache get clear-assoc ;
+
 ERROR: not-found-in-roots path ;
 
 PRIVATE<