00001 if {![package vsatisfies [package provide Tcl] 8.2]} { 00002 /* PRAGMA: returnok*/ 00003 return 00004 } 00005 package ifneeded tar 0.4 [list source [file join $dir tar.tcl]] 00006