--- tclCmdAH.c-orig	2006-07-26 17:04:40.437500000 +0100
+++ tclCmdAH.c	2006-07-26 17:06:14.781250000 +0100
@@ -1472,7 +1472,7 @@
      */
 
 #define STORE_ARY(fieldName, object) \
-    Tcl_SetStringObj(field, (fieldName), -1); \
+    Tcl_SetStringObj(field, fieldName, (sizeof("" fieldName) - 1)); \
     value = (object); \
     if (Tcl_ObjSetVar2(interp,varName,field,value,TCL_LEAVE_ERR_MSG)==NULL) { \
 	Tcl_DecrRefCount(field); \
