     all-vocabs-seq [ dup vocab-name >lower ] { } map>assoc ;
 
 : help-candidates ( seq -- candidates )
-    [ dup >link swap article-title >lower ] { } map>assoc
+    [ [ >link ] [ article-title >lower ] bi ] { } map>assoc
     sort-values ;
 
 : $apropos ( str -- )

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


TUPLE: more-completions seq ;

CONSTANT: max-completions 5

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

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