Index: generic/gentclAPI.tcl
===================================================================
diff -u -ra8b1c870410599a9af3ab36e08871f56426acfda -r5b61f8a3e6a8142e1553f50d2010439089e1cd0d
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision a8b1c870410599a9af3ab36e08871f56426acfda)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 5b61f8a3e6a8142e1553f50d2010439089e1cd0d)
@@ -126,8 +126,7 @@
       set type "int "
       if {$(-nrargs) == 1} {
         switch -glob $(-type) {
-          ""           {#set type "CONST char *"
-}
+          ""           {set type "CONST char *"}
           "class"      {set type "NsfClass *"}
           "object"     {set type "NsfObject *"}
           "tclobj"     {set type "Tcl_Obj *"}