*** tar.tcl	2006-11-26 17:58:26.000000000 +0100
--- tar.tcl.orig	2006-11-26 17:33:26.000000000 +0100
*************** proc ::tar::untar {tar args} {
*** 116,117 ****
!         set smap {* \\* ? \\? \\ \\\\ \[ \\\[ \] \\\]}
!         set pattern [string trim [string map $smap $file] "{}"]
--- 116 ----
!         set pattern [string map {* \\* ? \\? \\ \\\\ \[ \\\[ \] \\\]} $file]
