Index: library/nx/nx.tcl =================================================================== diff -u -r9abeee97470aeca0efde319271794f7f76903670 -rb2460ba0f8fef2b988ae3f77d6c34e6d7af7e69c --- library/nx/nx.tcl (.../nx.tcl) (revision 9abeee97470aeca0efde319271794f7f76903670) +++ library/nx/nx.tcl (.../nx.tcl) (revision b2460ba0f8fef2b988ae3f77d6c34e6d7af7e69c) @@ -1184,6 +1184,7 @@ } } } + if {[info exists :arg]} {lappend options arg=${:arg}} if {${:required}} {lappend options required} if {${:convert}} {lappend options convert} if {$withMultiplicity && [info exists :multiplicity] && ${:multiplicity} ne "1..1"} { @@ -1192,7 +1193,7 @@ if {$withSubstdefault && [info exists :substdefault] && ${:substdefault}} { lappend options substdefault } - #puts stderr "*** getParameterOptions [self] return $options" + #puts stderr "*** getParameterOptions [self] returns '$options'" return $options }