\ifcat A\scantextokens\expandafter{\Uchar`A}\message{YES}\else\message{NO}\fi
\def\goodUchar#1{\scantextokens\expandafter{\Uchar`#1}}
\Uchar