sinon pour utiliser juste les { } \ ça donne
Code :
proc charfilter {arg} {
list [string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}"} $arg]
}