2896c2896,2900
< 	if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, varName, NULL,
---
> 	Tcl_Obj *traceList;
> 	traceList = Tcl_NewListObj(objc-1,objv+1);
> 	traceList->refCount++;
> 
> 	if (TCL_ERROR == CallVarTraces(iPtr, arrayPtr, varPtr, varName, Tcl_GetString(traceList),
2898a2903
> 	    TclDecrRefCount(traceList);
2899a2905,2906
> 	} else {
> 	    TclDecrRefCount(traceList);
