Demo - dir browser tree fails

The directory browser tree fails on my windows system with the Tcl error:

-------- snip ----------
could not read "C:/~AVINSTL": no such file or directory
could not read "C:/~AVINSTL": no such file or directory
while executing
"file type $f"
(procedure "populateTree" line 8)
invoked from within
"populateTree $tree [$tree insert {} end -text $dir -values [list $dir directory]]"
(procedure "populateRoots" line 3)
invoked from within
"populateRoots $w.tree"
(file "D:/Tcl/demos/Tk8.6/tree.tcl" line 81)
invoked from within
"source D:/Tcl/demos/Tk8.6/tree.tcl"
("uplevel" body line 1)
invoked from within
"uplevel 1 [list source [file join $tk_demoDirectory $demo.tcl]]"
(procedure "invoke" line 12)
invoked from within
"invoke [.t index {@95,377}]"
(command bound to event)

------------- snap -----------

This bug can be fixed by normalizing the file paths in the proc populateTree. See attachment.