Index: library/nx/nx.tcl =================================================================== diff -u -re1e31d0d9747f31ff953c390dcb91796db47751e -rb60bb4c1295b7317ecc7f42258537afa9f483a70 --- library/nx/nx.tcl (.../nx.tcl) (revision e1e31d0d9747f31ff953c390dcb91796db47751e) +++ library/nx/nx.tcl (.../nx.tcl) (revision b60bb4c1295b7317ecc7f42258537afa9f483a70) @@ -117,7 +117,7 @@ #puts stderr "check $object info methods $path @ <$w>" set scope [expr {[::nsf::is class $object] && !${per-object} ? "class" : "object"}] if {[::nsf::dispatch $object ::nsf::methods::${scope}::info::methods $w] eq ""} { - # + # # Create dispatch/ensemble object and accessor method (if wanted) # if {$scope eq "class"} { @@ -1409,8 +1409,11 @@ ::nx::Attribute public method reconfigure {} { #puts stderr "*** Should we reconfigure [self]???" unset -nocomplain :parameterSpec + :checkInstVar :makeAccessor - ::nsf::invalidateobjectparameter ${:domain} + if {[::nsf::is class ${:domain}]} { + ::nsf::invalidateobjectparameter ${:domain} + } } ::nx::Attribute protected method init {} {