Index: library/nx/nx.tcl
===================================================================
diff -u -r7bcc1f1a88422c472cbeb238c1d7d1a337361bc8 -r361fa327cab70ec1c7bf085054bb96b649ed266c
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 7bcc1f1a88422c472cbeb238c1d7d1a337361bc8)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 361fa327cab70ec1c7bf085054bb96b649ed266c)
@@ -1847,7 +1847,8 @@
     }
 
     set restore [:removeTraces $object *]
-    ::nsf::var::set $object ${:name} ${:default}
+    # was: ::nsf::var::set $object ${:name} ${:default}
+    ::nsf::var::set $object ${:name} $value
     if {[info exists restore]} { {*}$restore }
   }