Index: generic/gentclAPI.tcl
===================================================================
diff -u -r4182e5c48847acdfdb384d0ab998f453e1434c69 -r564b282ab8a82850c60b8f0ef8a23a6719fbcc77
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 4182e5c48847acdfdb384d0ab998f453e1434c69)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 564b282ab8a82850c60b8f0ef8a23a6719fbcc77)
@@ -74,10 +74,10 @@
 #     } else {
 #       set default ""
 #     }
-    lappend l "{\"$argName\", $flags, $(-nrargs), ConvertTo$converter}"
+    lappend l "{\"$argName\", $flags, $(-nrargs), ConvertTo$converter, NULL,NULL,NULL,NULL,NULL,NULL,NULL}"
   }
   if {[llength $l] == 0} {
-    return "{NULL, 0, 0, NULL}"
+    return "{NULL, 0, 0, NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL}"
   } else {
     return [join $l ",\n  "]
   }