Reference in write var trace has stale value

Accessing a view reference from within a write trace gives old value instead of new value.

 test 1 {ref in write var trace} {
    set ::result {}
    trace add variable w write dumpw
    proc dumpw args {lappend ::result [view @w size]}
    set w 5
    set w 8
    set w 10
    trace remove variable w write dumpw
    rename dumpw {}
    concat $::result [view @w size]
 } {5 8 10 10}

 ---- Result was:
 5 5 5 10
 ---- Result should have been (exact matching):
 5 8 10 10
 ==== 1 FAILED