diff --git a/ansi-tests/loop13.lsp b/ansi-tests/loop13.lsp
index f8e65c253974a11f606e60b8ebbe4a0d881ae61a..a42f8d459e37f31db31cb74a51a10ed0342ae595 100644
--- a/ansi-tests/loop13.lsp
+++ b/ansi-tests/loop13.lsp
@@ -37,7 +37,8 @@
   1 2)
 
 (deftest loop.13.8
-  (let* ((limit (min 1000 (1- multiple-values-limit)))
+  (let* ((limit (min 1000 (1- (min call-arguments-limit
+				   multiple-values-limit))))
 	 (vals (make-list limit :initial-element :a))
 	 (vals2 (multiple-value-list (eval `(loop return (values ,@vals))))))
     (equalt vals vals2))