xmaxima problem



I built maxima 5.9.0rc3 using CMU Common Lisp 18d (under RedHat Linux 
6.2). 
The tests were okay, but xmaxima failed to start.  My tcl version is

   [barton@localhost maxima-5.9.0rc3]$ rpm -q tcl
   tcl-8.0.5-30

Is that too old? Here is my build_info() and what happens when I 
try to start xmaxima.

(C1) build_info();
Maxima version: 5.9.0rc3
Maxima build date: 6:28 11/1/2002
host type: i686-pc-linux-gnu
lisp-implementation-type: CMU Common Lisp
lisp-implementation-version: 18d

[barton@localhost maxima-5.9.0rc3]$ xmaxima
Error in startup script: bad option "totit": must be compare, first, 
index, last, length, match, range, tolower, toupper, trim, trimleft, 
trimright, wordend, or wordstart
    while executing
"string totit $v"
    (procedure "omPanel" line 27)
    invoked from within
"omPanel $w "
    (procedure "mkOpenMath" line 18)
    invoked from within
"mkOpenMath [set w $toplevel.t[incr maxima_priv(counter)]] "
    (procedure "OpenMathOpenUrl" line 90)
    invoked from within
"OpenMathOpenUrl $maxima_priv(firstUrl) -toplevel .browser"
    (procedure "MAXGui:install" line 33)
    invoked from within
"MAXGui:install gui .maxima"
    ("uplevel" body line 1)
    invoked from within
"uplevel [concat $object(__class__):$method gui $args]"
    (procedure "gui" line 3)
    invoked from within
"gui install $fr"
    (procedure "MAXTkmaxima:install" line 22)
    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 "/usr/local/bin/xmaxima" line 15019)


Barton