Index: generic/gentclAPI.tcl
===================================================================
diff -u -ra294781fe7f397f503c769668e13c7d7d4967dfc -r04747ba752ca2b7a4f30586348e39ab04f190da9
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision a294781fe7f397f503c769668e13c7d7d4967dfc)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 04747ba752ca2b7a4f30586348e39ab04f190da9)
@@ -61,6 +61,13 @@
         set (-argName) $type
       }
     }
+    # this does not work, since initializer element is not constant.
+#     if {[info exists (-default)]} {
+#       puts stderr "default of $argName = '$(-default)'"
+#       set default ", Tcl_NewStringObj(\"$(-default)\",-1)"
+#     } else {
+#       set default ""
+#     }
     lappend l "{\"$argName\", $(-required), $(-nrargs), convertTo$converter}"
   }
   join $l ",\n  "