Index: generic/gentclAPI.tcl
===================================================================
diff -u -r872d1371a257c8a20383ae70efa83bbf3ff78f96 -r403f26de1f34f39943b605903b47ec31c974cf9a
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 872d1371a257c8a20383ae70efa83bbf3ff78f96)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 403f26de1f34f39943b605903b47ec31c974cf9a)
@@ -33,7 +33,13 @@
 set ::objCmdProc "(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv \[\])"
 
 proc convertername {type typename} {
-  return [string totitle [string trimleft $typename -]]
+  if {[info exists ::registeredConverter($type)]} {
+    set name $::registeredConverter($type)
+  } else {
+    set name [string totitle [string trimleft $typename -]]
+    set ::registeredConverter($type) $name
+  }
+  return $name
 }
 
 proc createconverter {type typename} {
@@ -564,3 +570,10 @@
 }
 genstubs
 puts stderr "[array size ::definitions] parsing stubs generated"
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: