vocabs.hierarchy: fix (disk-vocabs) on subvocabs.

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index ca14dda7886064db8003c5687d4f4a598fc746aa..fe83370304453486bc9edb4688a4b17920219daa 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 [ append-path ] keep
+    [ ensure-vocab-root ] dip [ vocab-dir append-path ] keep
     over dup exists? [ directory-entries ] [ drop { } ] if ;
 
 : (disk-vocabs) ( root prefix -- seq )