Of course you can!
Use the info level command:
proc my_proc { some_arg } { puts "entering proc [lindex [info level 0] 0]" }
and you get exactly what you want
entering proc my_proc
Another way is to use the info frame , which gives a dictionary with some other information and reads the proc key:
proc my_proc { some_arg } { puts "entering proc [dict get [info frame 0] proc]" }
this time you get the full name of proc:
entering proc ::my_proc
source share