Index: generic/nsf.c =================================================================== diff -u -N -re270ccdb0a8e34b8ed386d0226fde44222c32eaa -reb1d421a5d32daa0d2f328e5ba03010673695682 --- generic/nsf.c (.../nsf.c) (revision e270ccdb0a8e34b8ed386d0226fde44222c32eaa) +++ generic/nsf.c (.../nsf.c) (revision eb1d421a5d32daa0d2f328e5ba03010673695682) @@ -27207,10 +27207,11 @@ RUNTIME_STATE(interp)->instanceMethodEpoch; Tcl_Command cmd = mcPtr->cmd; - fprintf(stderr, " method epoch %u max %u cmd %p objProc %p flags %.6x", + fprintf(stderr, " method epoch %u max %u cmd %p objProc 0x%"PRIxPTR" flags %.6x", mcPtr->methodEpoch, currentMethodEpoch, (void *)cmd, - (cmd != NULL) ? ((Command *)cmd)->objProc : NULL, + (cmd != NULL) ? + (unsigned long)PTR2UINT(((Command *)cmd)->objProc) : 0ul, mcPtr->flags); if (cmd != NULL) { fprintf(stderr, "... cmd %p flags %.6x\n", (void *)cmd, Tcl_Command_flags(cmd));