(fixes #8) Fix to work even if *print-case* is :downcase.