Artifact d25b6f3b3c11c924eaa6df36b79f6785f5358990b16746744604cc1f19c2ffa8:
puts $tcl_platform(platform) puts [info exists env(HOME)] unset env(HOME) puts [info exists env(HOME)] interp create child interp eval child { puts [info exists env(HOME)] } puts [info exists env(HOME)]