diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index d3c9d826d..90dca1d4e 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -100,7 +100,7 @@ SCM_DEFINE (scm_string_every, "string-every", 2, 2, 0,
   SCM_VALIDATE_SUBSTRING_SPEC_COPY (2, s, cstr,
 				    3, start, cstart,
 				    4, end, cend);
-  res = SCM_BOOL_F;
+  res = SCM_BOOL_T;
   cstr += cstart;
   while (cstart < cend)
     {