TCL получить имя процесса, в котором я нахожусь

Как узнать, как называется прок, в котором я нахожусь. Я имею в виду, что мне нужно это:

proc nameOfTheProc {} {

    #a lot of code here
    puts "ERROR: You are using 'nameOfTheProc' proc wrongly"
}

, поэтому я хочу получить «nameOfTheProc», но не жестко кодировать. Так что, когда кто-то изменит имя процедуры, она все равно будет работать правильно.