diff --git a/gitlab-pages/docs/language-basics/loops.md b/gitlab-pages/docs/language-basics/loops.md
index 6ac382fe5..eee32142e 100644
--- a/gitlab-pages/docs/language-basics/loops.md
+++ b/gitlab-pages/docs/language-basics/loops.md
@@ -41,7 +41,7 @@ let aux (i: int) : bool * int =
   if i < 100 then continue (i + 1) else stop i
 
 let counter_simple (n: int) : int =
-  Loop.fold_while aux_simple n
+  Loop.fold_while aux n
 ```
 
 <!--END_DOCUSAURUS_CODE_TABS-->
diff --git a/src/test/md_file_tests.ml b/src/test/md_file_tests.ml
index c2e275a3d..eb89fa4a5 100644
--- a/src/test/md_file_tests.ml
+++ b/src/test/md_file_tests.ml
@@ -92,6 +92,7 @@ let md_files = [
   "/gitlab-pages/docs/language-basics/sets-lists-touples.md";
   "/gitlab-pages/docs/language-basics/operators.md";
   "/gitlab-pages/docs/language-basics/unit-option-pattern-matching.md";
+  "/gitlab-pages/docs/language-basics/loops.md";
   "/gitlab-pages/docs/contributors/big-picture/back-end.md";
   "/gitlab-pages/docs/contributors/big-picture/vendors.md";
   "/gitlab-pages/docs/contributors/big-picture/front-end.md";