diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 0c809b38cca2150fe6e42c215cf58c7342e311d7..14222935b663385b967af7a7113ff594a9f1d85b 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7158,4 +7158,32 @@ Broken at C::WT-C-INLINE-LOC.
    12851164 182468232812 -2243976802 309299185674 2538150 1855615980)
   0)
 
-    
\ No newline at end of file
+(deftest misc.376
+  (funcall
+   (compile
+    nil
+    '(lambda () ; (a b c d e f g h i)
+       #|
+       (declare (type (integer -3780481450018 4128865857054) a))
+       (declare (type (integer -15 7920255) b))
+       (declare (type (integer -2 1) c))
+       (declare (type (integer -6 157) d))
+       (declare (type (integer -3022 3523491) e))
+       (declare (type (integer -3 18632748) f))
+       (declare (type (integer -4 149) g))
+       (declare (type (integer -22 -1) h))
+       (declare (type (integer -176782576526 -1863239307) i))
+       (declare (ignorable a b c d e f g h i))
+       |#
+       (declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
+			  (compilation-speed 0)))
+       (dotimes (iv4 3
+		     (multiple-value-bind (*s6*) (cons 0 0)
+		       (progn (cdr *s6*) 0)))
+	 (floor (rational (let ((*s2*
+				 (rational (common-lisp:handler-case 0))))
+			    0))))))
+   )
+  0)
+
+