diff --git a/ansi-tests/call-arguments-limit.lsp b/ansi-tests/call-arguments-limit.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..770f47af5c59b161724dcf1f066de478c441d935
--- /dev/null
+++ b/ansi-tests/call-arguments-limit.lsp
@@ -0,0 +1,29 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Oct 10 22:39:25 2002
+;;;; Contains: Tests for CALL-ARGUMENTS-LIMIT
+
+(in-package :cl-test)
+
+(deftest call-arguments-limit.1
+  (not (constantp 'call-arguments-limit))
+  nil)
+
+(deftest call-arguments-limit.2
+  (not (typep call-arguments-limit 'integer))
+  nil)
+
+(deftest call-arguments-limit.3
+  (< call-arguments-limit 50)
+  nil)
+
+(deftest call-arguments-limit.4
+  (let* ((m (min 65536 (1- call-arguments-limit)))
+	 (args (make-list m :initial-element 'a)))
+    (equal (apply #'list args) args))
+  t)
+
+(deftest call-arguments-limit.5
+  (< call-arguments-limit lambda-parameters-limit)
+  nil)
+
diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index 43b09072d72ae04edc948b36132b427b88b2e231..61ad81154521c5a18eab830671e14aac1f545715 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -9,6 +9,7 @@
 ;;; Tests of data and control flow
 
 (load "places.lsp")
+(load "call-arguments-limit.lsp")
 (load "constantly.lsp")
 (load "complement.lsp")
 (load "fboundp.lsp")
@@ -19,6 +20,7 @@
 (load "functionp.lsp")
 (load "labels.lsp")
 (load "lambda-list-keywords.lsp")
+(load "lambda-parameters-limit.lsp")
 (load "macrolet.lsp")
 
 ;;; Tests of conses
diff --git a/ansi-tests/lambda-parameters-limit.lsp b/ansi-tests/lambda-parameters-limit.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..c886cf10b55a148be2de69dd11468d6cd16bbb79
--- /dev/null
+++ b/ansi-tests/lambda-parameters-limit.lsp
@@ -0,0 +1,17 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Oct 10 22:45:44 2002
+;;;; Contains: Tests for LAMBDA-PARAMETERS-LIMIT
+
+(in-package :cl-test)
+
+(deftest lambda-parameters-limit.1
+  (not (typep lambda-parameters-limit 'integer))
+  nil)
+
+(deftest lambda-parameters-limit.2
+  (< lambda-parameters-limit 50)
+  nil)
+
+;;; See also tests is flet.lsp, labels.lsp
+