diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index ad3fa866bf360d84e5734dda0a44216b10ceed77..6e85adf0e5f3642d469eac475aa13486e2c7dde2 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11309,16 +11309,10 @@ Broken at C::WT-MAKE-CLOSURE.
 ;;;   attempt to THROW to a tag that does not exist: SB-C::LOCALL-ALREADY-LET-CONVERTED
 
 (deftest misc.637
- (labels ((%f11 (f11-2 &key (key1 0) (key2 0))
-		(progn
-		  (labels ((%f8 (f8-2 f8-3
-				      &optional
-				      (f8-4 0)
-				      (f8-5 (if nil (return-from %f11 0)
-					      0)))
-				0))
-			  (%f8 (%f8 0 0 0) f11-2 key1 key2))
-		  0)))
+ (labels ((%f11 (f11-2 &key key1)
+		(labels ((%f8 (f8-2 &optional (f8-5 (if nil (return-from %f11 0) 0)))
+			      :bad1))
+			(%f8 (%f8 0)))
+		:bad2))
 	 :good)
   :good)
-