751c751,761
<     if {[catch {file exists $path}]} {
---
>      # we want to strip any filtering/ext/blocking instructions 
>      # from the file name
>      
>      set aa [string first "\[" $path]
>      if {$aa > 0} {
>   	set fn [string range $path 0 [expr $aa-1]]
>      } else {
>   	set fn $path
>      }
>  
>      if {[catch {file exists $fn}]} {
760c770
<     if {[file exists $path]} {
---
>     if {[file exists $fn]} {
