There was a small but significant typo in the example. The right parens in the first parameter was mistyped as a }.
You can do it Ariba!! It works like a charm!
tcl>set a (630)555-1212
tcl>set b [string map “( {} ) {} – {}” $a]
tcl>echo $b
6305551212