Index: library/nx/nx.tcl
===================================================================
diff -u -rbfdad656af33451da0213dd66789a3d0f625ba18 -rd62bca12731d1c7a1a5cf63f950275852c5b05a2
--- library/nx/nx.tcl	(.../nx.tcl)	(revision bfdad656af33451da0213dd66789a3d0f625ba18)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision d62bca12731d1c7a1a5cf63f950275852c5b05a2)
@@ -831,7 +831,7 @@
       set parameterOptions [string range $spec [expr {$colonPos+1}] end]
       set name [string range $spec 0 [expr {$colonPos -1}]]
       foreach property [split $parameterOptions ,] {
-        if {$property in [list "required" "convert" "substdefault" "noarg"]} {
+        if {$property in [list "required" "convert" "substdefault" "noarg" "noleadingdash"]} {
 	  if {$property eq "convert" } {set class [:requireClass ::nx::VariableSlot $class]}
           lappend opts -$property 1
         } elseif {$property eq "noaccessor"} {
@@ -1023,6 +1023,7 @@
     {accessor false}
     {config true}
     {noarg}
+    {noleadingdash}
     {disposition alias}
     {required false}
     {default}
@@ -1136,6 +1137,7 @@
       }
     }
     if {[info exists :noarg] && ${:noarg}} {lappend options noarg}
+    if {[info exists :noleadingdash] && ${:noleadingdash}} {lappend options noleadingdash}
     if {$withMultiplicity && [info exists :multiplicity] && ${:multiplicity} ne "1..1"} {
       #puts stderr "### [self] added multiplicity ${:multiplicity}"
       lappend options ${:multiplicity}
@@ -1383,6 +1385,7 @@
     #
     ::nx::ObjectParameterSlot create ${os}::Object::slot::__initcmd \
 	-disposition initcmd \
+	-noleadingdash true \
 	-positional true \
 	-position 2