diff --git a/ansi-tests/atan.lsp b/ansi-tests/atan.lsp
index a76edd7205e817544b8eca397ed02065e71a4da5..bb9d2a12e91856deb0b0d20f18cd29ecdb32ccc7 100644
--- a/ansi-tests/atan.lsp
+++ b/ansi-tests/atan.lsp
@@ -6,8 +6,10 @@
 (in-package :cl-test)
 
 (deftest atan.1
-  (atan 0)
-  0.0)
+  (let ((result (atan 0)))
+    (or (eqlt result 0)
+	(eqlt result 0.0)))
+  t)
 
 (deftest atan.2
   (loop for type in '(short-float single-float double-float long-float)