Index: src/tk/tkevent.c
--- src/tk/tkevent.c.orig
+++ src/tk/tkevent.c
@@ -21,6 +21,7 @@ static char rcsid[] = "$Header: /user6/ouster/wish/RCS
 
 #include "tkconfig.h"
 #include "tkint.h"
+#include "tkwm.h"
 #include <errno.h>
 #include <signal.h>
 #include <sys/time.h>
@@ -930,7 +931,7 @@ Tk_CreateTimerHandler(milliseconds, proc, clientData)
     ClientData clientData;	/* Arbitrary data to pass to proc. */
 {
     register TimerEvent *timerPtr, *tPtr2, *prevPtr;
-    static int id = 0;
+    static intptr_t id = 0;
 
     timerPtr = NewTimerEvent();
 
@@ -1008,7 +1009,7 @@ Tk_CreateMicroTimerHandler(seconds, microseconds, proc
     ClientData clientData;	/* Arbitrary data to pass to proc. */
 {
     register TimerEvent *timerPtr, *tPtr2, *prevPtr;
-    static int id = 0;
+    static intptr_t id = 0;
 
     timerPtr = NewTimerEvent();
 
