Actually, the code looks like it is there Utility.tcl lines 1589-1592 and lines 1622-1625.

I'm guessing that for some reason the test is failing when it should succeed.  Some debugging right there should fix the issue.