$OpenBSD: patch-src_tcl_tclutil_c,v 1.2 2017/05/09 13:01:42 espie Exp $
Index: src/tcl/tclutil.c
--- src/tcl/tclutil.c.orig
+++ src/tcl/tclutil.c
@@ -177,7 +177,7 @@ TclFindElement(interp, list, elementPtr, nextPtr, size
 		    Tcl_ResetResult(interp);
 		    sprintf(interp->result,
 			    "list element in braces followed by \"%.*s\" instead of space",
-			    p2-p, p);
+			    (int)(p2-p), p);
 		    return TCL_ERROR;
 		} else if (openBraces != 0) {
 		    openBraces--;
@@ -234,7 +234,7 @@ TclFindElement(interp, list, elementPtr, nextPtr, size
 		    Tcl_ResetResult(interp);
 		    sprintf(interp->result,
 			    "list element in quotes followed by \"%.*s\" %s",
-			    p2-p, p, "instead of space");
+			    (int)(p2-p), p, "instead of space");
 		    return TCL_ERROR;
 		}
 		break;
