         " class." ,
     ] { } make $description ;
 
-M: word word-help*
-    stack-effect [ in>> ] [ out>> ] bi [
+: $default ( element -- )
+    first stack-effect [ in>> ] [ out>> ] bi [
         [
             dup pair? [
                 first2 dup effect? [ \ $quotation swap 2array ] when

GENERIC: word-help* ( word -- content )

: word-help ( word -- content )
    dup "help" word-prop [ ] [ word-help* ] ?if ;

: $predicate ( element -- )
    { { "object" object } { "?" boolean } } $values

                object
            ] if
        ] { } map>assoc
    ] bi@ append members $values ;

M: word word-help* drop \ $default ;

M: class word-help* drop f ;

M: predicate word-help* drop \ $predicate ;

: all-articles ( -- seq )
    articles get keys
