diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 48d9591ecc..947209b2d9 100644
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -144,7 +144,7 @@ PRIVATE>
     [ vocab-roots get ] dip '[ _ (load-from-root) ] map concat ;
 
 : load ( prefix -- )
-    (load) [ load-failures. ] each ;
+    (load) load-failures. ;
 
 : load-all ( -- )
     "" load ;