diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index e5687788a7c5b2a517329a8d0c8fc9c6470fc626..3ff6adf132385830cc414acc147a856ac3a2f898 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7278,24 +7278,26 @@ Broken at C::WT-C-INLINE-LOC.
 
 (deftest misc.382
   (funcall
-   '(lambda (b)
-      (declare (type (integer -65822755520 31689335872) b))
-      (declare (optimize (speed 2) (space 2) (safety 3)
-			 (debug 0) (compilation-speed 1)))
-      (let ((s8 (make-array nil :initial-element
-			    (catch 'ct4
-			      (complex
-			       (dotimes (iv1 1 0)
-				 (rational (throw 'ct4 b)))
-			       0)))))
-	(elt '(13423701584)
-	     (min 0
-		  (max 0
-		       (rational
-			(let ((s3 (make-array nil :initial-element 0)))
-			  (if (ldb-test (byte 0 0)
-					(shiftf (aref s8)
-						(aref s8)))
-			      0 0))))))))
+   (compile
+    nil
+    '(lambda (b)
+       (declare (type (integer -65822755520 31689335872) b))
+       (declare (optimize (speed 2) (space 2) (safety 3)
+			  (debug 0) (compilation-speed 1)))
+       (let ((s8 (make-array nil :initial-element
+			     (catch 'ct4
+			       (complex
+				(dotimes (iv1 1 0)
+				  (rational (throw 'ct4 b)))
+				0)))))
+	 (elt '(13423701584)
+	      (min 0
+		   (max 0
+			(rational
+			 (let ((s3 (make-array nil :initial-element 0)))
+			   (if (ldb-test (byte 0 0)
+					 (shiftf (aref s8)
+						 (aref s8)))
+			       0 0)))))))))
    -38169486910)
   13423701584)