Index: library/nx/nx.tcl =================================================================== diff -u -rfaa3eeb74515d10278bb6f055ecb374791211248 -rf35ab630098876f0efbd8117aa981eb199a45227 --- library/nx/nx.tcl (.../nx.tcl) (revision faa3eeb74515d10278bb6f055ecb374791211248) +++ library/nx/nx.tcl (.../nx.tcl) (revision f35ab630098876f0efbd8117aa981eb199a45227) @@ -2431,8 +2431,9 @@ # We could consider calling "configure" instead, but that would # not work for true "variable" handlers. # - # In case a get trace is activated, don't compain about + # In case a "get" trace is activated, don't complain about # pre-existing variables, which might be set via traces. + # set allowpreset [expr {"get" in [$slot cget -trace] && [nsf::var::exists [self] $name]}] $slot setCheckedInstVar -allowpreset=$allowpreset -nocomplain=$nocomplain [self] $defaultValue #set :__initblock($name) 1