1set __dir__ $dir
2foreach index [concat \
3		   [glob -nocomplain [file join $dir * pkgIndex.tcl]] \
4		   [glob -nocomplain [file join $dir * * pkgIndex.tcl]]] {
5  set dir [file dirname $index]
6  source $index
7}
8set dir $__dir__
9unset __dir__
10
11