diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm
index 59d2d7d90..7f34e6b48 100644
--- a/module/language/tree-il/compile-cps.scm
+++ b/module/language/tree-il/compile-cps.scm
@@ -460,7 +460,7 @@
 
     (($ <module-set> src mod name public? exp)
      (convert-arg cps exp
-       (lambda (val)
+       (lambda (cps val)
          (module-box
           cps src mod name public? #t
           (lambda (cps box)