The procedure until is not in the core, but you can define it yourself as follows: proc until {cond code} { uplevel 1 [list while !$cond $code] } See also [control]::do (in [tcllib]). ---- [Category Function]