Index: library/nx/nx.tcl
===================================================================
diff -u -ra774481bc677369c7b0f7d1fcf3275ee1afd4fba -r515bb4c0ed4a2dad74c4a29c940b57a3e911845d
--- library/nx/nx.tcl	(.../nx.tcl)	(revision a774481bc677369c7b0f7d1fcf3275ee1afd4fba)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 515bb4c0ed4a2dad74c4a29c940b57a3e911845d)
@@ -1333,11 +1333,15 @@
       set options [:getParameterOptions -withMultiplicity true -forObjectParameter true]
 
       if {[info exists :initcmd]} {
-	lappend options initcmd
 	if {[info exists :default]} {
+	  if {[llength $options] > 0} {
+	    ::nsf::is -complain [join $options ,] ${:default}
+	    #puts stderr "::nsf::is -complain [join $options ,] ${:default} ==> OK"
+	  }
 	  append initcmd "\n::nsf::var::set \[::nsf::self\] ${:name} [list ${:default}]\n"
 	  #puts stderr ================append-default-to-initcmd-old=<${:initcmd}>
 	}
+	lappend options initcmd
 	append initcmd ${:initcmd}
 	set :parameterSpec [list [:namedParameterSpec $prefix ${:name} $options] $initcmd]
 	#puts stderr ================${:parameterSpec}
@@ -1902,6 +1906,7 @@
       if {${:per-object}} {
 	${:domain} eval $__initcmd
       }
+      #puts stderr initcmd=$__initcmd
       set :initcmd $__initcmd
     }
   }