Index: generic/gentclAPI.tcl
===================================================================
diff -u -rfe19549734064c3a57866e7e47743ec787f647e5 -rb8af431b779825e6d2cfa7a8b334158da1ea9370
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision fe19549734064c3a57866e7e47743ec787f647e5)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision b8af431b779825e6d2cfa7a8b334158da1ea9370)
@@ -25,11 +25,13 @@
   set enums [list ${name}NULL]
   foreach d $domain {lappend enums $name[string totitle [string map [list - _] $d]]Idx}
   subst {
-static int convertTo${name}(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, ClientData *clientData) {
+static int convertTo${name}(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, 
+			    ClientData *clientData, Tcl_Obj **outObjPtr) {
   int index, result;
   $opts
   result = Tcl_GetIndexFromObj(interp, objPtr, opts, "$argname", 0, &index);
   *clientData = (ClientData) INT2PTR(index + 1);
+  *outObjPtr = objPtr;
   return result;
 }
 enum ${name}Idx {[join $enums {, }]};