почему следующее регулярное выражение не работает в tcl?

Я читаю какой-то код в TCL, регулярное выражение не работает,

set name "Ronaldo"

proc GET_PLAYER_INFO {player_id {player_name "$name"}} {
    global name

    regexp "$player_name" "Ronaldo is awesome" match

    puts $match
}

GET_PLAYER_INFO {1,"$name"}

в этих двойных кавычках «$player_name» заменено на «$name»?, а $name — «Ronaldo», но почему это так не совпадает?