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

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

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

    '[ [ _ _ ] dip ?set-at ] change-word-prop ;

: consult-methods ( consultation -- )
    [ define-consult-method ] each-generic ;

: unregister-consult ( consultation -- )
    [ class>> ] [ group>> ] bi
