On a related note, I'd like to redirect certain verbs from a whole class
of objects to another class of objects. Sort of like:
lockItem:item
doUnlock->self.mydoor
;
(Here anytime you tried to "unlock lock" it would redirect it to the
appropriate door; the actual situation is more complicated but similar.)