global database database_header rows database_fn
catch { unset database }
set database_fn ./charset-$rows.txt
+ if {![file exists $database_fn]} return
set f [open $database_fn r]
if {[string compare [db_getsl $f] $database_header]} { error "$l ?" }
if {([db_getsl $f])+0 != $rows} { error "wrong h ?" }