                 object
             ] if
         ] { } map>assoc
-    ] bi@ append members \ $values prefix 1array ;
+    ] bi@ append members $values ;
+
+M: word word-help* drop \ $default ;
 
 M: class word-help* drop f ;
 
-M: predicate word-help* \ $predicate prefix 1array ;
+M: predicate word-help* drop \ $predicate ;
 
 : all-articles ( -- seq )
     articles get keys

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

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

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

        " class." ,
    ] { } make $description ;

: $default ( element -- )
    first stack-effect [ in>> ] [ out>> ] bi [
        [
            dup pair? [
                first2 dup effect? [ \ $quotation swap 2array ] when
