diff --git a/ansi-tests/minus.lsp b/ansi-tests/minus.lsp
index 7853f525aa6311976a6aaece71a4b2586d09c13a..6167571cfcd5ad0a8992fa884a1f76b840abbc10 100644
--- a/ansi-tests/minus.lsp
+++ b/ansi-tests/minus.lsp
@@ -122,7 +122,7 @@
 
 (deftest subtract.3
   (let ((args nil))
-    (loop for i from 1 to (min 256 call-arguments-limit)
+    (loop for i from 1 to (min 256 (1- call-arguments-limit))
 	  do (push 1 args)
 	  always (eql (apply #'- 1000 args) (- 1000 i))))
   t)