diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 22cce3d76002a6bead3295c8dbc3bdf001359c95..0159d4d15b5a2239207d7cb7d232c373486c7e0f 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11235,12 +11235,10 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;; (SB-KERNEL:TWO-ARG-AND NIL 1)
 
 (deftest misc.631
-  (if (flet ((%f17 (f17-1 f17-2 f17-3
-                          &optional
-                          &key (key1 0)
-                          (key2 (if (evenp (multiple-value-prog1 0)) 0 0)))
+  (if (flet ((%f17 (&key (key2 (if (evenp (multiple-value-prog1 0)) 0 0)))
 		   0))
 	    0)
-      0 0)
-  0)
+      :a :b)
+  :a)
+