diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 6a0c774a58be83fde00c4f9a42e75f857b68cf28..ecdfc939ffd6d055d88b3ca87ecc43355ff6d6c3 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11373,11 +11373,11 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;;   The value NIL is not of type SB-C::IR2-NLX-INFO.
 
 (deftest misc.641
-  (let ((form '(lambda (c)
+  (let ((form '(lambda () ; c)
 		 (declare (optimize (speed 1) (space 0) (debug 2)
 				    (compilation-speed 0) (safety 1)))
 		 (flet ((%f3 (f3-1 &key (key1 (count (floor 0 (min -74 0)) #())))
 			     0))
 		       (apply #'%f3 0 nil)))))
-    (funcall (compile nil form) 1))
+    (funcall (compile nil form)))
   0)