eduardop
committed
on 01 Feb 05
updating this code (problaby it should be merged in sessions.tcl)