Well it could be considered either a bug or feature depending on how you look at it, but you can make it work by change the regexp code towards the end of db_qd_get_fullname to the following:
# We get something like packages.acs-tcl.tcl.acs-kernel-procs
# We need to remove packages.
if ![regexp {^packages.(.*)} $url all rest] {
set rest $url
}
The regexp assumes that the .tcl file is always below the packages subdirectory, which is not correct for the root level tcl directory.