package ifneeded ftpd 0.4 [list source [file join $dir ftpd.tcl]]