diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 18d2236b79824dc243801f6afee572e02b6532ea..60bca4bdf2aff82314ad69fda28df16db583c506 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10653,3 +10653,21 @@ Broken at C::WT-MAKE-CLOSURE.
   (equalp #*0 "0")
   nil)
 
+;;; clisp 21 Mar 2005 (-ansi -q, x86 Linux, gcc 3.2.2)
+;;; *** - Compiler bug!! Occurred in SP-DEPTH at <0.
+
+(deftest misc.593
+  (funcall
+   (compile
+    nil
+    '(lambda (a b)
+       (declare (ignorable a b))
+       (declare (optimize (space 3) (debug 0) (safety 1)
+			  (compilation-speed 3) (speed 1)))
+       (prog2
+	   (catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil)
+			   a
+			 (reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a))))
+	   0)))
+   2212755 3154856)
+  0)