can't read "list": no such variable
    while executing
"lsearch -exact $list $root"
    ("\.rep\." arm line 25)
    invoked from within
"switch -regexp -- $type  {\.dir\.} {
			if [regexp {/$} $root] {
				$entryWidget config -bg #ffccff	;# magenta
				DisplayText $entryWidget $entryNam..."
    (procedure "SetBackgroundEntry" line 9)
    invoked from within
"SetBackgroundEntry $widget.entry $entryName $varName $listName"
    (procedure "UpdateEntry" line 35)
    invoked from within
"UpdateEntry $widget $entryName $type $string $varName $listName"
    (procedure "CompleteEntry" line 101)
    invoked from within
"CompleteEntry $widget.entry $entryName $varName check"
    (procedure "EnableEntry" line 30)
    invoked from within
"EnableEntry $aBrowse bcRepository bc(result1) keyRepositoryList"
    (procedure "OK" line 30)
    invoked from within
"OK sp"
    invoked from within
".window.main.sp.buttons.ok.ok invoke"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list $w invoke]"
    (procedure "tkButtonUp" line 9)
    invoked from within
"tkButtonUp .window.main.sp.buttons.ok.ok
"
    (command bound to event)