1. Script will always abort when error occurs
 
2. Why is has something to do with timer ?
    What is you AniListFile looks like ?
    are you trying to screen some numbers from file ?
 
The following is an example that if ani is on the list script will block the call.
is this something similar what you are trying to do ?
 

proc readDataFile { fname } {
    global BlockArray

    puts "TCL:Enter=readDataFile"
    if [catch {set fd [open $fname] } errmsg] {
        puts "TCL: Unable to open blocking list file: $fname for reading\n$errmsg"
        return -1
    }

    set noDataRead 1
    while {[gets $fd string] != -1} {
        set blockNum  [lindex $string 0]

        if { [regexp {^#} $blockNum] } {
            puts "TCL:Line is a comment"
            continue
        }

        if { ![regexp {^[0-9]*$} $blockNum] } {
            puts "TCL: Invalid number configured ignoring this entry"
            continue
        } else {

            set BlockArray($blockNum) $blockNum
            set noDataRead 0
        }
    }    ;#end of while
    # Process any errors that occurred during the read
    if ![eof $fd] {
        puts "Error occurred while reading pilot file"
        return -1
    }

    close $fd

    if { $noDataRead } {
        return -1
        puts "TCL:WARNING: No number readed from blocking lict  file, please check the Content file, might be corrupted"
    }
}
 
data file:
 
7771001
8882002
9993003

I increased my file to more than 10000 lines and the match is in 10000+ lines as well and I don't see any issue.
 
Thanks !

My suggestion is that if you just need to match a number then simplify the data file. Reduce the number of element per line.
 
Thank !