Index: generic/tclInterp.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInterp.c,v
retrieving revision 1.32
diff -u -r1.32 tclInterp.c
--- generic/tclInterp.c	20 May 2004 13:04:11 -0000	1.32
+++ generic/tclInterp.c	24 May 2004 16:46:20 -0000
@@ -3176,7 +3176,7 @@
     iPtr->limit.timeHandlers = NULL;
     iPtr->limit.timeGranularity = 10;
     Tcl_InitHashTable(&iPtr->limit.callbacks,
-	    sizeof(struct ScriptLimitCallbackKey)/sizeof(ClientData));
+	    sizeof(struct ScriptLimitCallbackKey)/sizeof(int));
 }
 
 static void
