Index: library/nx/nx.tcl
===================================================================
diff -u -r6fd5b9d632efe378ecf7df0ecfb0a2ef6b39b7c1 -r2d9fcf7f4dc9ccd8ac52702850f60724a04bcba4
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 6fd5b9d632efe378ecf7df0ecfb0a2ef6b39b7c1)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 2d9fcf7f4dc9ccd8ac52702850f60724a04bcba4)
@@ -726,8 +726,16 @@
     #
     # Parameter extractors
     #
-    :method "info parameter syntax" {p:parameter} {::nsf::parameter::get syntax $p}
-    :method "info parameter name"   {p:parameter} {::nsf::parameter::get name $p}
+    :method "info parameter default" {p:parameter varName:optional} {
+      if {[info exists varName]} {
+	uplevel [list ::nsf::parameter::get default $p $varName]
+      } else {
+	::nsf::parameter::get default $p
+      }
+    }
+    :method "info parameter name"    {p:parameter} {::nsf::parameter::get name   $p}
+    :method "info parameter syntax"  {p:parameter} {::nsf::parameter::get syntax $p}
+    :method "info parameter type"    {p:parameter} {::nsf::parameter::get type   $p}
     
     :alias "info parent"           ::nsf::methods::object::info::parent
     :alias "info precedence"       ::nsf::methods::object::info::precedence