diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index b63f4f666..83951ad19 100644
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -317,7 +317,7 @@
 					  (error "Too many arguments.")))
 				    '())
 			      ,@BODY)))
-	   `(lambda (,@ARGLIST . ,(if rest-arg rest-arg '())) 
+	   `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '())) 
 	      ,@BODY))))))