Fix bug in use of FIND-NAME.