Is this a regression?  If so, what release(s)
of Tcl, Tk, Itcl, Itk permitted this demo script
to function properly?  Can the change that caused
trouble be isolated?