C'est normal, il y a une erreur dans les binds, il manque le namespace:
tcl
bind join -|- ::aphogreet::changegreet
bind pub - !aphorisme ::aphogreet::generate_aphorism