Как отслеживать файл журнала в TCL

Допустим, есть файл log.txt , и к нему постоянно добавляется какой-то журнал.

Я хочу отслеживать этот файл в среде TCL.

Я пробовал это, но это не сработало.

set log [open log.txt a]

for { } { true } { update; after 1000 } {

    # expected to get here the appended part
    read $log

    seek $log 0 end

}

Можно ли прочитать измененный файл с помощью того же дескриптора файла log , или мне придется закрыть и снова открыть файл log.txt ?

Есть ли там своего рода эквивалент команды Linux tail -f в TCL?