Index: generic/gentclAPI.tcl
===================================================================
diff -u -N -r37833d2979f789fc14627e6c1f38ca3cb0ceac01 -rdeed56d52d49cdd2116a6cdd6b7c8b9b6c19f14e
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 37833d2979f789fc14627e6c1f38ca3cb0ceac01)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision deed56d52d49cdd2116a6cdd6b7c8b9b6c19f14e)
@@ -238,7 +238,9 @@
           "int32"      {set type "int "}
           "boolean"    {set type "int "}
           "*|*"        {
-            if {![info exists (-typeName)]} {set (-typeName) $(-argName)}
+            if {![info exists (-typeName)]} {
+              set (-typeName) $(-argName)
+            }
             set type "[convertername $(-type) $(-typeName)]Idx_t "
             #puts stderr "nonpos: (-typeName) <$(-typeName)> (-type) <$(-type)>    ==> type=<$type>"
           }
@@ -323,7 +325,7 @@
     }
     if {!$ifSet} {lappend if "$type$varName"}
     if {$cVar} {
-      if {$type eq "int " || [string match "*Idx " $type]} {
+      if {$type eq "int " || [string match "*Idx_t " $type]} {
         lappend c [subst -nocommands {$type$varName = ($type)PTR2INT(pc.clientData[$i]);}]
       } else {
         lappend c [subst -nocommands {$type$varName = ($type)pc.clientData[$i];}]