1if {![package vsatisfies [package provide Tcl] 8]} {return} 2if {[string compare $::tcl_platform(platform) windows]} {return} 3if {[info exists ::tcl_platform(debug)]} { 4 package ifneeded registry 1.2.1 \ 5 [list load [file join $dir tclreg12g.dll] registry] 6} else { 7 package ifneeded registry 1.2.1 \ 8 [list load [file join $dir tclreg12.dll] registry] 9} 10