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