Index: generic/xotcl.c
===================================================================
diff -u -r519b71305f345f406448f602ad89be43371339cb -r9be808f7267163cc1f3911b5f9ad750cac0dc397
--- generic/xotcl.c	(.../xotcl.c)	(revision 519b71305f345f406448f602ad89be43371339cb)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 9be808f7267163cc1f3911b5f9ad750cac0dc397)
@@ -11644,9 +11644,9 @@
     r1 = Tcl_ListObjGetElements(in, nonposArgsDefv[i], &npac, &npav);
     if (r1 == TCL_OK) {
       if (npac == 3) {
-        Tcl_ObjSetVar2(in, npav[0], NULL, npav[2], 0);
+        Tcl_SetVar2Ex(in, ObjStr(npav[0]), NULL, npav[2], 0);
       } else if (npac == 2 && !strcmp(ObjStr(npav[1]), "switch")) {
-        Tcl_ObjSetVar2(in, npav[0], NULL, Tcl_NewBooleanObj(0), 0);
+        Tcl_SetVar2Ex(in, ObjStr(npav[0]), NULL, Tcl_NewBooleanObj(0), 0);
       }
     }
   }