Posted to tcl by kostix at Fri Dec 01 19:20:29 GMT 2006view pretty

proc get_caller {{level 1}} {
    if {[info level] < 3} {
        return {}
    } else {
        incr level 
        uplevel $level {namespace which -command [lindex [info level 0] 0]}
    }
}