         " class." ,
     ] { } make 2array ;
 
-M: class default-word-help drop f ;
-
-PRIVATE>
-
-GENERIC: word-help* ( word -- content )
-
-: word-help ( word -- content )
-    dup "help" word-prop [ ] [ default-word-help ] ?if ;
+M: class word-help* drop f ;
 
 : all-articles ( -- seq )
     articles get keys

        ] { } map>assoc
    ] bi@ append members \ $values prefix 1array ;

M: predicate default-word-help
    { $values { "object" object } { "?" boolean } }
    [
        \ $description ,

words.symbol ;
IN: help

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

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

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