Merge branch 'bogie'

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