set info {
# Cosmetic defect, returns incorrect number of args when forwarding to another method.
# No functional impact but misleading when debugging.

% puts $tcl_patchLevel
8.6b1.2

}

proc _phandler {arg1 arg2} {}

oo::class create test {

  forward test1 my _mhandler
  forward test2 my _mhandler arg
  forward test3 _phandler
  forward test4 _phandler arg
  
  method _mhandler {arg1 arg2} {}

}


set o [test new]

catch {$o test1} err; puts $err ;# Should show 2 x args
catch {$o test2} err; puts $err ;# Should show 1 x arg
catch {$o test3} err; puts $err ;# Shows 2 x args as expected
catch {$o test4} err; puts $err ;# Shows 1 x arg as expected