--- generic/threadSvListCmd.c.orig	Thu May 21 21:08:12 2015
+++ generic/threadSvListCmd.c	Thu May 21 21:10:42 2015
@@ -846,7 +846,7 @@ SvLsetObjCmd (arg, interp, objc, objv)
     lPtr = svObj->tclObj;
     argc = objc - off - 1;

-    if (!SvLsetFlat(interp, lPtr, argc, (Tcl_Obj**)(objv+off),objv[objc-1])) {
+    if (!SvLsetFlat(interp, lPtr, argc, (Tcl_Obj**)objv+off,objv[objc-1])) {
         return TCL_ERROR;
     }