Index: library/nx/nx.tcl =================================================================== diff -u -r31404a50d429bd67e904a70797c4f67674fab09f -r2872e1f0a6523c7fb44952492e05414c4f8d9c84 --- library/nx/nx.tcl (.../nx.tcl) (revision 31404a50d429bd67e904a70797c4f67674fab09f) +++ library/nx/nx.tcl (.../nx.tcl) (revision 2872e1f0a6523c7fb44952492e05414c4f8d9c84) @@ -1777,6 +1777,10 @@ ::nx::VariableSlot public method reconfigure {} { #puts stderr "*** Should we reconfigure [self]???" unset -nocomplain :parameterSpec + if {${:incremental}} { + if {${:accessor} eq "none"} { set :accessor "public" } + if {![:isMultivalued]} { set :multiplicity "0..n" } + } :makeAccessor if {${:per-object} && [info exists :default]} { :setCheckedInstVar -nocomplain=[info exists :nocomplain] ${:domain} ${:default} @@ -2462,7 +2466,7 @@ # Make the default protected methods # ::nx::configure defaultMethodCallProtection true - ::nx::configure defaultAccessor public + ::nx::configure defaultAccessor none # # Provide an ensemble-like interface to the ::nsf primitiva to