- rc= Tcl_ListObjReplace(si->ip,invoke,si->llength,0,argc,argv);
- for (i=0; i<argc; i++) { Tcl_DecrRefCount(argv[i]); argv[i]= 0; }
+ if (si->xargs) {
+ rc= Tcl_ListObjAppendList(si->ip, invoke, si->xargs);
+ if (rc) goto x_rc;
+ }
+
+ rc= Tcl_ListObjReplace(si->ip, invoke,si->llength,0, argc,argv);