diff --git a/ansi-tests/cis.lsp b/ansi-tests/cis.lsp
index facdb3d89309b48037282493584b1b151f05686f..753d860d512d2615579d46ff7fdb7f447509a34d 100644
--- a/ansi-tests/cis.lsp
+++ b/ansi-tests/cis.lsp
@@ -16,7 +16,9 @@
   t)
 
 (deftest cis.1
-  (eqlt (cis 0) #c(1.0 0.0))
+  (let ((result (cis 0)))
+    (or (=t result 1)
+	(eqlt #c(1.0 0.0))))
   t)
 
 (deftest cis.2