package ifneeded AggTk 0.1 [string map [list @ $dir] {
    source [file join {@} AggTk.tcl]   
    package provide AggTk 0.1
}]	

package ifneeded cobj 1.0 [string map [list @ $dir] {
    source [file join {@} cobj.tcl]   
    package provide cobj 1.0
}]	
	