puts "OK"
proc badproc {} {
  set yy [expr $noval+3]
  }
puts "OK"

foreach x "a b c d" {
  if {1 == 1} {
    badproc
    }
  }