I was just poking around and in darwinports_fastload.tcl.in I discovered the following:

# I could iterate on the directory, but the only way I know in Tcl involves a

# native function we provide in pextlib.

set dir [file join "@prefix_expanded@" share darwinports Tcl port1.0]

catch {source [file join $dir pkgIndex.tcl]}

set dir [file join "@prefix_expanded@" share darwinports Tcl package1.0]

catch {source [file join $dir pkgIndex.tcl]}

set dir [file join "@prefix_expanded@" share darwinports Tcl pextlib1.0]

catch {source [file join $dir pkgIndex.tcl]}

set dir [file join "@prefix_expanded@" share darwinports Tcl registry1.0]

catch {source [file join $dir pkgIndex.tcl]}

It's actually rather trivial to do this iteration - that block can be replaced with:

foreach dir [glob -directory "@prefix_expanded@" -join share darwinports Tcl *] {

    catch {source [file join $dir pkgIndex.tcl]}

}

Should I go ahead and commit this change?

Incidentally, this will source darwintrace1.0/pkgIndex.tcl (which the manual sourcing doesn't), but I looked in that file and it's just comments, so it won't make a difference. I am curious as to what darwintrace1.0 is for, since it doesn't provide any packages in pkgIndex.tcl.