To make any variable persistent throught your application:
tk::session::setAttribute -name HOME -value "/home"
set home [tk::session::getAttribute -name HOME] * take a look at "Login.tcl" file
now that's simple