xmaxima problems in cvs head



When I run the current cvs version of xmaxima, I get the following:

--------------------------------------------------------------------------
|abacus3>./xmaxima-local
Error in startup script: invalid command name "mcload"
    while executing
"mcload [file join $maxima_priv(maxima_verpkgdatadir) msgs]"
    (procedure "setMaxDir" line 112)
    invoked from within
"setMaxDir"
    (procedure "MAXTkmaxima:install" line 9)
    invoked from within
"MAXTkmaxima:install tkmaxima"
    ("uplevel" body line 1)
    invoked from within
"uplevel [concat $object(__class__):$method tkmaxima $args]"
    (procedure "tkmaxima" line 3)
    invoked from within
"tkmaxima install"
    (file
"/home/amundson/notwork/maxima-head/interfaces/xmaxima/xmaxima"
line15093)
--------------------------------------------------------------------------

I have TCL/Tk version 8.3.5. I can make the problem go away by replacing
all instances of mcload by ::msgcat::mcload, but I don't know if that
solution works under all versions of TCL/Tk. Anyone know what to do?

--Jim