titlebase="$1"
shift
touch "$HOME/.counters/l.$DISPLAY"
-newcount=`with-lock-wait "$HOME/.counters/l.$DISPLAY" perl -e '
+newcount=`with-lock-ex -w "$HOME/.counters/l.$DISPLAY" perl -e '
chdir($ARGV[2]) or die $!;
$tb= unpack("H*",$ARGV[1]); $found=0;
open(X,"v.$ARGV[0]\0") or die $!;