----
'''[AndyDent] - 2010-11-29 20:57:16'''

I'm pretty new to TCL but it seems like there's a bug in the first line that has been propagated throughout this page

======
if {[info proc _unknown]==""} {rename unknown _unknown} ;# keep the original
======

shouldn't the name of the command being tested in the first expression be ''unknown'' which would make the correct line

======

if {[info proc unknown]==""} {rename unknown _unknown} ;# keep the original
======