Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 15350)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 15351)
@@ -320,5 +320,5 @@
       (let ((ccl::*nx-safety* 1)) ;; At safety 3, we don't know from EQ...
         (eval '(defun cl-test::ccl.bug#294-1 (x y)
-                (eq x) y)))
+                (if x) y)))
     (program-error () :program-error))
   :program-error)
@@ -326,5 +326,5 @@
 (deftest ccl.bug#294-2
   (let* ((file (test-source-file
-                "(defun cl-test::ccl.bug#294-2 (x y) (eq x) y)")))
+                "(defun cl-test::ccl.bug#294-2 (x y) (if x) y)")))
     (fmakunbound ' cl-test::ccl.bug#294-2)
     (handler-case (test-compile file :break-on-program-errors t)
@@ -334,5 +334,5 @@
 (deftest ccl.buf#294-3
   (let* ((file (test-source-file
-                "(defun cl-test::ccl.bug#294-3 (x y) (eq x) y)"))
+                "(defun cl-test::ccl.bug#294-3 (x y) (if x) y)"))
          (warnings nil))
     (fmakunbound ' cl-test::ccl.bug#294-3)