ERROR: Internal Error

An error occurred when serving http://www.tcl.tkhttp://www.tcl.tk/cgi-bin/tct/tip/401.xml to you because unexpected condition "can't read "sectype(0)": no such element in array" occurred.

You might wish to inform the author of the referring page.

Debugging Info:

can't read "sectype(0)": no such element in array
    while executing
"set l $sectype($i)"
    (procedure "tipxml::generateDocument" line 89)
    invoked from within
"${ns}::generateDocument $heads [lrange $pars 1 end]"
    (procedure "formatTIPDocument" line 30)
    invoked from within
"formatTIPDocument $d [string trim $kind .]"
    (procedure "gendoc" line 16)
    invoked from within
"gendoc $filename $ext"
    (procedure "serveFile" line 19)
    invoked from within
"serveFile /401.xml"