gistfile1.tcl

set debugfd [open "debug.txt" w]

rename proc _proc
_proc proc {name arglist body} {
        uplevel 1 [list _proc $name $arglist $body]
        uplevel 1 [list trace add execution $name enterstep [list ::proc_start $name]]
}
_proc proc_start {name command op} {
        global debugfd
        puts $debugfd "$name >> $command"
}

rename set _set
proc set {var args} {
        global debugfd
        puts $debugfd [list set $var $args]
        uplevel _set $var $args
}