diff --git a/av.c b/av.c
index 352c1ac034..3a83fec6ff 100644
--- a/av.c
+++ b/av.c
@@ -361,7 +361,7 @@ Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val)
             return NULL;
     }
 
-    if (SvREADONLY(av) && key >= AvFILL(av))
+    if (SvREADONLY(av) && key > AvFILL(av))
         croak_no_modify();
 
     if (!AvREAL(av) && AvREIFY(av))