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