diff --git a/module/ice-9/optargs.scm b/module/ice-9/optargs.scm
index 138cf6028..195bd1ec9 100644
--- a/module/ice-9/optargs.scm
+++ b/module/ice-9/optargs.scm
@@ -155,12 +155,13 @@
          (lambda (vars inits)
            (with-syntax ((n (length vars))
                          (vars vars)
+                         (ivars (generate-temporaries vars))
                          ((kw ...) (map symbol->keyword
                                         (map syntax->datum vars)))
                          ((idx ...) (iota (length vars)))
                          ((t ...) (generate-temporaries vars))
                          ((i ...) inits))
-             #'(let ((t (lambda vars i))
+             #'(let ((t (lambda ivars i))
                      ...)
                  (apply (lambda vars b0 b1 ...)
                         (or (parse-lambda-case '(0 0 #f n aok ((kw . idx) ...))