[Alexander Grischuk]: When mount zip file with filenames stored like ./dir/file (instead dir/file), 
glob shows nothing. Looks like it's bug in depth calculation logic. 
I have used ActiveTcl8.4.13 stable.
To fix this problem I just patch code to eliminate "." path elements. Here is diff:

     set path [read $fd [u_short $flen]]
     set sb(name) ""
 
     foreach el [file split $path] {
         if {$el ne "."} {
     		set sb(name) [file join $sb(name) $el]
     	}
     }
     
---
     set sb(name) [read $fd [u_short $flen]]

     set name ""
 
     foreach el [file split [string tolower $path]] {
         if {$el ne "."} {
     		set name [file join $name $el]
     	}
     }
 
---
     set name [string tolower $path]

I didn't test enough, but such patch solves my problems.
Here is problem archive [http://fasm.nm.ru/zipvfs_bug.zip]