         ] { } map>assoc
     ] bi@ append members \ $values prefix 1array ;
 
-M: predicate default-word-help
+M: predicate word-help*
     { $values { "object" object } { "?" boolean } }
     [
         \ $description ,

words.symbol ;
IN: help

<PRIVATE

GENERIC: default-word-help ( word -- elements )

M: word default-word-help
    stack-effect [ in>> ] [ out>> ] bi [
        [
            dup pair? [

        " class." ,
    ] { } make 2array ;

M: class word-help* drop f ;

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