About half the time this script segfaults with Tcl trunk and Itcl 3.4.2 RC:

puts "Itcl [package require Itcl]"
itcl::class Animal {
  constructor args {namespace which -variable legs}
  public variable legs 4
}
Animal .a