diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index b44678ec4ea61358f3ca2f8d97161ffd1b222e5d..7f40a64009bde3ac3bf41db4051c2429ab77938c 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7339,4 +7339,20 @@ Broken at C::WT-C-INLINE-LOC.
 	   (catch 'ct8 (throw 'ct8 (catch 'ct7 0)))))))
   0)
 
+(deftest misc.385
+  (let
+      #+armedbear ((jvm::*catch-errors* nil))
+      nil
+      (funcall
+       (compile nil '(lambda () (values 1 (catch 'ct2 2))))))
+  1 2)
+
+(deftest misc.386
+  (let
+      #+armedbear ((jvm::*catch-errors* nil))
+      nil
+      (funcall
+       (compile nil '(lambda () (values (rationalize (catch 'ct1 1)) 2)))))
+  1 2)
+