Index: generic/gentclAPI.tcl
===================================================================
diff -u -r666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0 -ra294781fe7f397f503c769668e13c7d7d4967dfc
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision a294781fe7f397f503c769668e13c7d7d4967dfc)
@@ -19,6 +19,7 @@
   if {[info exists ::created($name)]} {
     return ""
   }
+  set ::created($name) 1
   set domain [split $type |]
   set opts "static CONST char *opts\[\] = {\"[join $domain {", "}]\", NULL};"
   set enums [list ${name}NULL]