diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp
index 32a844ad4b7c3b9c9742bba122886e868167b41e..e86db6168714f6d7b2ca1618b0d5ba9c738113fb 100644
--- a/ansi-tests/defun.lsp
+++ b/ansi-tests/defun.lsp
@@ -57,20 +57,20 @@
   (let ((x 1))
     (declare (special x))
     (let ((x 2))
-      (defun defun-test-fun-5 (&optional (y x))
+      (defun defun-test-fun-6 (&optional (y x))
 	(declare (special x))
 	(values y x))
-      (defun-test-fun-5)))
+      (defun-test-fun-6)))
   2 1)
 
 (deftest defun.7
   (let ((x 1))
     (declare (special x))
     (let ((x 2))
-      (defun defun-test-fun-5 (&key (y x))
+      (defun defun-test-fun-7 (&key (y x))
 	(declare (special x))
 	(values y x))
-      (defun-test-fun-5)))
+      (defun-test-fun-7)))
   2 1)
 
 ;; Documentation