# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # proc Bgerror m { global V me if {$V>0} { puts "$me/bgerror: \"$m\"" } }