Changing alpha to upper case in TCL

Hello TCL experts,

I have a name element coming across with JR in it like:

|smith jr^john^j|

I want to all name elements to upper case in my outbound message.

I have code

lassign $xlateInVals Name

 set newName [string toupper $Name]

 set xlateOutVals $newName

This works fine  but when the name has a space and jr in it, only

SMITH  is sent.  Does string toupper work this way?

Thanks,

Dan