diff --git a/src/core/pp.c b/src/core/pp.c
index e73a3856..25650fef 100644
--- a/src/core/pp.c
+++ b/src/core/pp.c
@@ -633,7 +633,7 @@ void janet_buffer_format(
                     if (form[2] == '\0')
                         janet_buffer_push_bytes(b, s, l);
                     else {
-                        if (l != strlen((const char *) s))
+                        if (l != (int32_t) strlen((const char *) s))
                             janet_panic("string contains zeros");
                         if (!strchr(form, '.') && l >= 100) {
                             janet_panic