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