При создании виджета создается еще один виджет автоматически

Здравствуйте Антон не знал как с вами 
связаться пишу тут, есть вот такая 
проблемка с tktray

Привожу код

#!/bin/sh
#The next line executes wish - wherever it is \
exec wish "$0" "$@"
package require img::png
package require tktray
proc all_widgets {{root .}} {
    lappend all $root
    foreach child [winfo children $root] {
            lappend all {*}[all_widgets $child] 
    }
    return $all
}
image create photo ico_img -file "./tkffmpeg16.png"
tktray::icon .ic -image ico_img;
puts [all_widgets]

на выходе получаем
. .ic .ic.ic

Откуда берется виджет .ic.ic? Это бага или 
фича? В 1.2 такой баги не было в 1.3.9 есть.

Original issue reported on code.google.com by scriptg...@gmail.com on 5 May 2011 at 7:05

kurnevsky / tktray

При создании виджета создается еще один виджет автоматически #5