     '[ [ _ _ ] dip ?set-at ] change-word-prop ;
 
 : consult-methods ( consultation -- )
-    [ consult-method ] each-generic ;
+    [ define-consult-method ] each-generic ;
 
 : unregister-consult ( consultation -- )
     [ class>> ] [ group>> ] bi

    [ second [ [ dip ] curry ] times ] [ first ] bi
    (consult-method-quot) ;

: consult-method ( word consultation -- )
    [ create-consult-method ]
    [ swap consult-method-quot ] 2bi
    define ;


: add-new-definitions ( protocol wordlist -- )
    [ drop protocol-consult values ] [ added-words ] 2bi
    [ swap define-consult-method ] cartesian-each ;

: initialize-protocol-props ( protocol wordlist -- )
    [
