1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 293d887..e5f3650 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -5790,6 +5790,8 @@ TestbytestringObjCmd(
 	return TCL_ERROR;
     }
 
+    /* Next line produces a "warning: passing argument 3 of ... from incompatible pointer type",
+     * but that's on purpose: It's exactly what we are testing here */
     p = (const char *)Tcl_GetBytesFromObj(interp, objv[1], &x.n);
     if (p == NULL) {
 	return TCL_ERROR;