         [ completions ] dip '[
             _ 1array \ $heading prefix ,
             [ max-completions short head keys \ $completions prefix , ]
-            [ dup length max-completions > [ more-completions boa 1array \ $link prefix , ] [ drop ] if ]
+            [ dup length max-completions > [ more-completions boa <$link> , ] [ drop ] if ]
             bi
         ] unless-empty
     ] { } make ;


TUPLE: more-completions seq ;

: max-completions 5 ;

M: more-completions article-title article-name ;

M: more-completions article-name
    seq>> length max-completions - number>string " more results" append ;

    all-vocabs-seq [ dup vocab-name >lower ] { } map>assoc ;

: help-candidates ( seq -- candidates )
    [ [ >link ] [ article-title >lower ] bi ] { } map>assoc
    sort-values ;

: $apropos ( str -- )
