[WINTCL] Error : can't read "Doc(root)": no such element in array

[Abhishek T. <abh...@au...>]

Below code of mine :
proc Doc_Root {args} {
    global Doc
    if {[llength $args] > 0} {
        set real [lindex $args 0]
set Doc(root) $real
eval [list Doc_AddRoot / $real] [lrange $args 1 end]
        return
    }
    return $Doc(root)
}

is giving the following  error.
---------------------
No 'sitemap' entry found for .tml
can't read "Doc(root)": no such element in array
    while executing
"return $Doc(root)"
    (procedure "Doc_Root" line 9)
    invoked from within
"Doc_Root"
    (procedure "look::dialogbox_tabbed_start" line 32)
    invoked from within
"look::dialogbox_tabbed_start $current_tab $tab_names $dialog_box_width"
    (procedure "look::save_edit_load" line 288)
    invoked from within
"look::save_edit_load $table_name $key_field_name $fields_and_defaults
$end_url $section $read_only_fields $tab_definitions $foreign_fields "
    (procedure "members::edit_new_member" line 705)
    invoked from within
"members::edit_new_member"
    invoked from within
"set members_content [members::edit_new_member]"
    invoked from within
"[
    set members_content [members::edit_new_member]
    if { [ncgi::value moderate_.EnableWysiwygEditor] == "T" } {
        return [htmltag::standard..."
    (file "changed.CreateDKIMdata.tcl" line 466)
----------------------------

Please help

Regards
Abhishek