diff --git a/ansi-tests/flet.lsp b/ansi-tests/flet.lsp
index 4590f040f893cd11eac79302fd78dd8a83d09104..2e29e7e3cfd5c4c5a83307e2480d077ab2c85f32 100644
--- a/ansi-tests/flet.lsp
+++ b/ansi-tests/flet.lsp
@@ -151,8 +151,8 @@
 
 ;;; flet works with a large (maximal?) number of arguments
 (deftest flet.20
-  (let* ((n (min lambda-parameters-limit 1024))
-	 (vars (loop for i from 1 to n collect (gensym))))
+  (let* ((n (min (1- lambda-parameters-limit) 1024)))
+	 (vars (loop repeat n collect (gensym))))
     (eval
      `(eqlt ,n
 	    (flet ((%f ,vars (+ ,@ vars)))