Index: src/tk/tkcursor.c
--- src/tk/tkcursor.c.orig
+++ src/tk/tkcursor.c
@@ -560,7 +560,7 @@ Tk_NameOfCursor(cursor)
 
     if (!initialized) {
 	printid:
-	sprintf(string, "cursor id 0x%x", cursor);
+	snprintf(string, 20, "cursor id 0x%lx", cursor);
 	return string;
     }
     idHashPtr = Tcl_FindHashEntry(&idTable, (char *) cursor);
