package ifneeded xvfs 1 [list source [file join $dir xvfs.tcl]]
