There's a corresponding bug in upcase, which I dealt with thus:
sym (if x (sym (map upc (coerce x 'string))) 'NIL)
-----