diff --git a/src/compiler/GF/Compile/Compute/Concrete.hs b/src/compiler/GF/Compile/Compute/Concrete.hs
index 39837897a..152a18360 100644
--- a/src/compiler/GF/Compile/Compute/Concrete.hs
+++ b/src/compiler/GF/Compile/Compute/Concrete.hs
@@ -458,7 +458,7 @@ susp i env ki = EvalM $ \gr k mt r -> do
       return (mt,tnk:tnks)
 
     bindInt gr k mt r s iv max
-      | iv < max = do
+      | iv <= max = do
          let v = VInt iv
          writeSTRef i (Evaluated v)
          res <- case ki v of