Index: library/nx/nx.tcl =================================================================== diff -u -N -r095e1c2332fe7332d648ce194619f15ce1f62c04 -r71eb8c412adf8946fa4930dd00f27898773ae266 --- library/nx/nx.tcl (.../nx.tcl) (revision 095e1c2332fe7332d648ce194619f15ce1f62c04) +++ library/nx/nx.tcl (.../nx.tcl) (revision 71eb8c412adf8946fa4930dd00f27898773ae266) @@ -1817,7 +1817,7 @@ unset -nocomplain :parameterSpec if {${:incremental}} { if {${:accessor} eq "none"} { set :accessor "public" } - if {![:isMultivalued]} { set :multiplicity "0..n" } + if {![:isMultivalued]} { set :multiplicity [string range ${:multiplicity} 0 0]..n } } :makeAccessor if {${:per-object} && [info exists :default]} { @@ -1855,8 +1855,7 @@ if {${:incremental}} { if {${:accessor} eq "none"} { set :accessor "public" } if {![:isMultivalued]} { - puts stderr "=== incremental adds multiplicity" - set :multiplicity "0..n" + set :multiplicity [string range ${:multiplicity} 0 0]..n } } next