diff --git a/builder/builder.ml b/builder/builder.ml
index 6b5378b5d..84d575730 100644
--- a/builder/builder.ml
+++ b/builder/builder.ml
@@ -425,7 +425,7 @@ let main () =
       | `Convert -> eprintf "qemu-img convert"
     in
 
-    List.iteri (
+    iteri (
       fun i (itags, task, otags) ->
         eprintf "%d: itags:" i;
         print_tags itags;