diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 3ff6adf132385830cc414acc147a856ac3a2f898..b44678ec4ea61358f3ca2f8d97161ffd1b222e5d 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7301,3 +7301,42 @@ Broken at C::WT-C-INLINE-LOC.
 			       0 0)))))))))
    -38169486910)
   13423701584)
+
+;;; cmucl 11/2003
+;;; Wrong value
+(deftest misc.383
+  (funcall
+   (compile
+    nil
+    '(lambda (a b c)
+       (declare (type (integer -93650 118967004056) a))
+       (declare (type (integer -429173946 -3892) b))
+       (declare (type (integer -229669685 -50537386) c))
+       (declare (ignorable a b c))
+       #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
+       (declare
+	(optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2)))
+       (logorc2
+	(let* ((*s3* (cons 0 a)))
+	  (declare (dynamic-extent *s3*))
+	  (shiftf c -124766263))
+	411942919)))
+   79909316946 -347537841 -210771963)
+  -142606339)
+
+;;; abcl 7 Jun 2004
+;;; catch-throw now enabled in the abcl compiler
+
+;;; Inconsistent stack height
+(deftest misc.384
+  (let
+      #+armedbear ((jvm::*catch-errors* nil))
+      nil
+      (funcall
+       (compile
+	nil
+	'(lambda ()
+	   (catch 'ct8 (throw 'ct8 (catch 'ct7 0)))))))
+  0)
+
+