Index: generic/xotcl.c
===================================================================
diff -u -r570b5b8ea87572bdfd1460842ac333359800467b -r5fe13ad7f00106b9912ec8e78e9beb626ef9733d
--- generic/xotcl.c	(.../xotcl.c)	(revision 570b5b8ea87572bdfd1460842ac333359800467b)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 5fe13ad7f00106b9912ec8e78e9beb626ef9733d)
@@ -12089,13 +12089,15 @@
             return XOTclVarErrMsg(interp, "Non positional arg '", argStr,
                                   "': no boolean value", (char *) NULL);
           }
-          Tcl_ObjSetVar2(interp, var, NULL, Tcl_NewBooleanObj(!bool), 0); 
+          Tcl_SetVar2Ex(interp, ObjStr(var), NULL, Tcl_NewBooleanObj(!bool), 0); 
+          /*Tcl_ObjSetVar2(interp, var, NULL, Tcl_NewBooleanObj(!bool), 0); */
         } else {
           i++;
           if (i >= argsc)
             return XOTclVarErrMsg(interp, "Non positional arg '",
                                   argStr, "': value missing", (char *) NULL);
-          Tcl_ObjSetVar2(interp, var, NULL, argsv[i], 0);
+          Tcl_SetVar2Ex(interp, ObjStr(var), NULL, argsv[i], 0);
+          /* Tcl_ObjSetVar2(interp, var, NULL, argsv[i], 0);*/
         }
       } else {
         endOfNonposArgsReached = 1;