     [ $subsection* ] each ($blank-line) ;
 
 : $subsection ( element -- )
-    first $subsection* ;
+    check-first $subsection* ;
 
 : ($vocab-link) ( text vocab -- )
     >vocab-link write-link ;
 
 : $vocab-subsection ( element -- )
     [
-        first2 dup vocab-help
+        check-first2 dup vocab-help
         [ 2nip ($long-pretty-link) ]
         [ [ >vocab-link link-icon bl ] [ ($vocab-link) ] bi ]
         if*
     ] ($subsection) ;
 
 : $vocab-link ( element -- )
-    first dup vocab-name swap ($vocab-link) ;
+    check-first dup vocab-name swap ($vocab-link) ;
 
 : $vocabulary ( element -- )
-    first vocabulary>> [
+    check-first vocabulary>> [
         "Vocabulary" $heading nl dup ($vocab-link)
     ] when* ;
 

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 sets slots sorting splitting strings urls vectors
vocabs vocabs.loader words words.symbol ;
FROM: prettyprint.sections => with-pprint ;
FROM: namespaces => set ;
IN: help.markup

    [ clear-unrelated-words ] [ notify-related-words ] bi ;

: $related ( element -- )
    check-first dup "related" word-prop remove
    [ $see-also ] unless-empty ;

: ($grid) ( style quot -- )
