diff --git a/basis/vocabs/cache/cache.factor b/basis/vocabs/cache/cache.factor
index cca8d563d8..e77e8c5217 100644
--- a/basis/vocabs/cache/cache.factor
+++ b/basis/vocabs/cache/cache.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs fry init kernel memoize namespaces sequences
-vocabs vocabs.hierarchy vocabs.loader vocabs.metadata
-vocabs.refresh words ;
+USING: assocs kernel namespaces memoize init sequences vocabs
+vocabs.hierarchy vocabs.loader vocabs.metadata vocabs.refresh
+words ;
 IN: vocabs.cache
 
 : reset-cache ( vocab -- )
@@ -10,7 +10,7 @@ IN: vocabs.cache
     [ root-cache get-global delete-at ]
     [
         \ vocab-file-contents "memoize" word-prop
-        '[ drop first vocab-name _ = not ] assoc-filter! drop
+        [ drop [ first vocab-name ] [ = not ] bi* ] with assoc-filter! drop
     ] bi
     \ all-vocabs-recursive reset-memoized
     \ all-authors reset-memoized