Index: library/nx/nx.tcl
===================================================================
diff -u -r2930650cf87cc180b657bcaa8bba66891af5369a -r62dbdfdbe5604ced0d8eff5ee990e525bb931cec
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 2930650cf87cc180b657bcaa8bba66891af5369a)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 62dbdfdbe5604ced0d8eff5ee990e525bb931cec)
@@ -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