diff --git a/data/cookbook/create-zip-archive/00-camlzip.ml b/data/cookbook/create-zip-archive/00-camlzip.ml
index d0468b9367..653f2ae17b 100644
--- a/data/cookbook/create-zip-archive/00-camlzip.ml
+++ b/data/cookbook/create-zip-archive/00-camlzip.ml
@@ -18,7 +18,7 @@ let rec traverse_fs f directory =
     Sys.readdir directory
     |> Array.iter
          (fun entry ->
-            traverse
+            traverse_fs
               f (directory ^ "/" ^ entry))
   else
     f directory