vocabs.hierarchy: use ensure-vocab-root/prefix.

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index fe83370304453486bc9edb4688a4b17920219daa..4ba44cc56ddcccebd5dd29d397718022ca0cb9c1 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -29,7 +29,7 @@ ERROR: vocab-root-required root ;
     [ ensure-vocab-root ] [ check-vocab-name ] bi* ;
 
 : vocab-directory-entries ( root prefix -- vocab-path vocab-name entries )
-    [ ensure-vocab-root ] dip [ vocab-dir append-path ] keep
+    ensure-vocab-root/prefix [ vocab-dir append-path ] keep
     over dup exists? [ directory-entries ] [ drop { } ] if ;
 
 : (disk-vocabs) ( root prefix -- seq )