Простая строчка
while {1} {set a [http::geturl $site]; array unset a}
где -$site -некий URL - и тикль усиленно пожирает память, несмотря на отсутствие к-либо глобальных переменных. Это баг? Потестите на своих версиях, плиз. Если баг, запостите багу кто хорошо инглиш знает.
