Index: generic/xotcl.c
===================================================================
diff -u -r5fae57ab03ce52f7e2e5b3bc954eb6b97c3f33d1 -r18224c233ce4ea3e989f3c754d8bf097b400f94d
--- generic/xotcl.c	(.../xotcl.c)	(revision 5fae57ab03ce52f7e2e5b3bc954eb6b97c3f33d1)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 18224c233ce4ea3e989f3c754d8bf097b400f94d)
@@ -2258,9 +2258,9 @@
       valueObject = Tcl_DuplicateObj(valueObject);
     }
     Tcl_SetLongObj(valueObject, autoname_counter);
+    Tcl_ObjSetVar2(interp, XOTclGlobalObjects[XOTE_AUTONAMES], name, 
+		   valueObject, flgs);
   }
-  Tcl_ObjSetVar2(interp, XOTclGlobalObjects[XOTE_AUTONAMES], name, 
-                 valueObject, flgs);
   
   if (resetOpt) {
     if (valueObject) { /* we have an entry */