         "Tuple classes" $subheading
         [
             [ <$pretty-link> ]
-            [ superclass <$link> ]
+            [ superclass <$pretty-link> ]
             [ "slots" word-prop [ name>> ] map " " join <$snippet> ]
             tri 3array
         ] map

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

: $words ( words -- )

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