 : describe-symbols ( words -- )
     [
         "Symbol words" $subheading
-        [ <$link> 1array ] map $table
+        [ <$pretty-link> 1array ] map $table
     ] unless-empty ;
 
 : $words ( words -- )

    [
        "Parsing words" $subheading
        [
            [ <$link> ]
            [ word-syntax dup [ <$snippet> ] when ]
            bi 2array
        ] map

        "Predicate classes" $subheading
        [
            [ <$pretty-link> ]
            [ superclass <$pretty-link> ]
            bi 2array
        ] map
        { { $strong "Class" } { $strong "Superclass" } } prefix
