diff --git a/planner/src/step.sld b/planner/src/step.sld
index 6a95f23..7d3a87e 100644
--- a/planner/src/step.sld
+++ b/planner/src/step.sld
@@ -181,7 +181,7 @@
             (build-plan-current-plan-inner plan))
            (for-each
              (lambda (result) (apply handle-build-step-result result))
-             (apply (build-step-type-proc step-type) (map collect-build-step-args steps)))))
+             (apply (build-step-type-proc step-type) (map (lambda (a) (cons (build-step-id a) (collect-build-step-args a))) steps)))))
         (else
          (for-each
            (lambda (step) (run-build-step step-type step))