vocabs: words-named should't f suffix.

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 29530f89968025206c39971042803539dd2c891e..b47053071fe236c080e9959604ec6de8b913da4a 100644 (file)
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -104,7 +104,7 @@ ERROR: no-vocab name ;
     [ values [ vocab-words-assoc at ] with map sift ]
     [
         [ ":" split1 swap ] dip at
-        [ vocab-words-assoc at suffix ] [ drop ] if*
+        [ vocab-words-assoc at [ suffix ] when* ] [ drop ] if*
     ] 2bi ;
 
 : child-vocab? ( prefix name -- ? )