Index: library/nx/nx.tcl
===================================================================
diff -u -r5ce68a42506fcc981cea2431afa1b09b476e667a -r364a9eda329acd7d20173a4165d71394d3061aae
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 5ce68a42506fcc981cea2431afa1b09b476e667a)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 364a9eda329acd7d20173a4165d71394d3061aae)
@@ -1243,8 +1243,11 @@
       set options [:getParameterOptions -withMultiplicity true -forObjectParameter true]
       if {[info exists :initcmd]} {
 	lappend options initcmd
-	set :parameterSpec [list [:namedParameterSpec $prefix ${:name} $options] ${:initcmd}]
-	
+	if {[info exists :default]} {
+	  append initcmd "::nsf::var::set \[::nsf::self\] ${:name} ${:default};\n"
+	}
+	append initcmd ${:initcmd}
+	set :parameterSpec [list [:namedParameterSpec $prefix ${:name} $options] $initcmd]
       } elseif {[info exists :default]} {
 	# deactivated for now: || [string first {$} ${:default}] > -1
 	if {[string match {*\[*\]*} ${:default}]} {
@@ -1540,7 +1543,6 @@
     {accessor true}
     {type}
     {settername}
-
     valuecmd
     defaultcmd
     valuechangedcmd