vocabs.hierarchy: fix load-all

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 9352e81afc1ab970ccae58149775f76283d26544..b840b5ab9dfe96d83ff8dcb22a18fad77c8e5117 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -108,8 +108,8 @@ PRIVATE>
 \r
 : (load) ( prefix -- failures )\r
     [ child-vocabs-recursive no-roots no-prefixes ]\r
-    [ dup find-vocab-root [ >vocab-link ] [ drop f ] if ] bi\r
-    prefix filter-unportable\r
+    [ dup find-vocab-root [ >vocab-link prefix ] [ drop ] if ] bi\r
+    filter-unportable\r
     require-all ;\r
 \r
 : load ( prefix -- )\r