diff --git a/xo-procedure2/src/procedure2/PrimitiveRegistry.cpp b/xo-procedure2/src/procedure2/PrimitiveRegistry.cpp
index 0ce7aa68..e62b6794 100644
--- a/xo-procedure2/src/procedure2/PrimitiveRegistry.cpp
+++ b/xo-procedure2/src/procedure2/PrimitiveRegistry.cpp
@@ -41,6 +41,7 @@ namespace xo {
                 log && log("do install fn (", i+1, "/", n, ")");
 
                 ok = ok & fn(mm, sink, flags);
+                ++i;
             }
 
             return ok;