# Rewritten from mk4vfs.tcl, orig by by Matt Newman and Jean-Claude Wippler
# $Id$
+# 1.0 initial release
+# 1.1 view size renamed to count, vlerq package renamed to thrill
+
package provide vfs::mkcl 1.1
package require vfs
package require thrill
set s 0
set d 0
set c ""
- incr l [eval [linsert $tag end | size]]
+ incr l [eval [linsert $tag end | count]]
incr l [llength [lsearch -exact -int -all $v::prows($db) [lindex $tag 3]]]
} else {
set t file