proc A x {
    B x x
}
proc B {x y} {
    return -code error Yo
}
puts =====================A\n[::tcl::unsupported::disassemble proc A]
set ::tcl_traceExec 3
A 1
