     [ clear-unrelated-words ] [ notify-related-words ] bi ;
 
 : $related ( element -- )
-    first dup "related" word-prop remove
+    check-first dup "related" word-prop remove
     [ $see-also ] unless-empty ;
 
 : ($grid) ( style quot -- )


: topic-span ( topic quot -- ) [ >topic ] dip ($span) ; inline

PRIVATE>

: ($link) ( topic -- ) [ link-text ] topic-span ;
: $link ( element -- ) first ($link) ;

: ($long-link) ( topic -- ) [ link-long-text ] topic-span ;
: $long-link ( element -- ) first ($long-link) ;

: ($pretty-link) ( topic -- )
    [ [ link-icon ] [ drop bl ] [ link-text ] tri ] topic-span ;
: $pretty-link ( element -- ) first ($pretty-link) ;

: ($long-pretty-link) ( topic -- )
    [ [ link-icon ] [ drop bl ] [ link-long-text ] tri ] topic-span ;

definitions.icons effects fry generic hashtables help.stylesheet
help.topics io io.styles kernel locals make math namespaces
parser present prettyprint prettyprint.stylesheet quotations
see sequences sequences.private sets slots sorting splitting
strings urls vectors vocabs vocabs.loader words words.symbol ;
FROM: prettyprint.sections => with-pprint ;
FROM: namespaces => set ;
IN: help.markup
