diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index efb4433bd3287d00caac69ff887745fa6aca4450..a0295d1b875045723fd1190fcecf9cc57fa5c4f8 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10898,16 +10898,11 @@ Broken at C::WT-MAKE-CLOSURE.
    (compile
     nil
     '(lambda (a)
-      (declare (type (integer -20326914 13338097) a))
-      (declare (ignorable a))
       (declare (optimize (space 3) (safety 1) (debug 3)
 		(speed 1) (compilation-speed 3)))
-      (let* ((*s7* (catch 'ct1
-		     (reduce #'(lambda (lmv6 lmv5)
-				 (throw 'ct1 0))
-			     (list a 0 0) :end 2))))
-	(declare (special *s7*))
-	0)))
+      (catch 'ct1
+	(reduce #'(lambda (lmv6 lmv5) (throw 'ct1 0))
+		(list a 0 0) :end 2))))
    1)
   0)