From 7734bd9bcdce70d113e94c6cf9c80e5dae1379c2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 5 Aug 2009 23:08:14 -0500
Subject: [PATCH] vocabs.hierarchy: fix load-all

---
 basis/vocabs/hierarchy/hierarchy.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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