diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 6a3f12f6196a362afda559e9c7fcb1378170013c..7778af97948c1714347f942719360f83efb9d5e1 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7194,3 +7194,29 @@ Broken at C::WT-C-INLINE-LOC.
 	 0)))
    10)
   0)
+
+(deftest misc.378
+  (funcall
+   (compile
+    nil
+    '(lambda (c)
+       (declare (optimize (speed 1) (space 0) (safety 1) (debug 3)
+			  (compilation-speed 2)))
+       (dotimes (iv4 3 0)
+	 (restart-case (round (multiple-value-bind (*s6*) (cons c 0)
+				(car *s6*)))))))
+   1)
+  0)
+
+(deftest misc.379
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (optimize (speed 2) (space 0) (safety 2) (debug 2)
+			  (compilation-speed 1)))
+       (values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3))))))
+  0 0)
+
+
+