I am getting the following error when I try and look at a contig list in gap4

invalid command name "tablelist"
invalid command name "tablelist"
    while executing
"tablelist $t.list  -columns {0 "Name" 10 "Length" 14 "# sequences"}  -labelcommand tablelist::sortByColumn  -exportselection 0  -stretch 0  -selectmod..."
    (procedure "InitListContigs" line 9)
    invoked from within
"InitListContigs 1 """
    ("eval" body line 1)
    invoked from within
"eval {InitListContigs 1 ""}"
    invoked from within
".contig_sel.#contig_sel#menubar.#contig_sel#menubar#view invoke active"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list $w invoke active]"
    (procedure "tk::MenuInvoke" line 47)
    invoked from within
"tk::MenuInvoke .contig_sel.#contig_sel#menubar.#contig_sel#menubar#view 1"
    (command bound to event)
The version of tcl I have installed is 8.5 and ActiveTCL is also installed..
Reagards

ORla