diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index 2ee0411ac..fd4db654b 100644
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -294,7 +294,8 @@
 				    `((if (not (null? ,rest-gensym))
 					  (error "Too many arguments.")))
 				    '())
-			      ,@BODY)))
+			      (let ()
+				,@BODY))))
 	   `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
 	      ,@BODY))))))