Implementation, diff -u, Tcl 8.5, v2