Index: library/nx/nx.tcl
===================================================================
diff -u -N -rdc801eacd9d3d6f63b53830aef0fec2e0b71134c -r7e754788ca3af3d878c38ddb924f227645306bc0
--- library/nx/nx.tcl	(.../nx.tcl)	(revision dc801eacd9d3d6f63b53830aef0fec2e0b71134c)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 7e754788ca3af3d878c38ddb924f227645306bc0)
@@ -2396,16 +2396,14 @@
 
     set paramOptsList [split $parameterOptions ,]
     if {[info exists defaultValue] && "substdefault" in [split $paramOptsList ,]} {
-      
-      if {![info complete $defaultValue]} {
-        return -code error "substdefault: default '$defaultValue' is not a complete script"
-      }
-      
-      if {![string match {*\[*\]*} $defaultValue]} {
+      if {[string match {*\[*\]*} $defaultValue]} {
+        if {![info complete $defaultValue]} {
+          return -code error "substdefault: default '$defaultValue' is not a complete script"
+        }
+      } else {
         set paramOptsList [lsearch -exact -inline -all -not $paramOptsList "substdefault"]
         set spec [string trimright $pname:[join $paramOptsList ,] :]
       }
-      
     }
     
     set slot [::nx::MetaSlot createFromParameterSpec [::nsf::self] \