diff --git a/numbers/atan.lsp b/numbers/atan.lsp
index 6bec43b971f8560373cf4d713f89cec3c8137aeb..9945574d1840fb4c159b9e934777c9f75595da80 100644
--- a/numbers/atan.lsp
+++ b/numbers/atan.lsp
@@ -175,13 +175,18 @@
 ;;; no portable ieee-fp, we could put it in ansi-beyond test suite
 ;;; though:
 ;;;
-;;;   (atan (anything) nan)                 -> nan
-;;;   (atan nan (anything))                 -> nan
-;;;   (atan +-inf +inf)                     -> +-pi/4
-;;;   (atan +-inf -inf)                     -> +-3pi/4
-;;;   (atan +-(anything-but-inf/nan), +inf) -> +-0
-;;;   (atan +-(anything-but-inf/nan), -inf) -> +-pi
-;;;   (atan +-inf (anything-but-0/nan/inf)) -> +-pi/2
+;;;   (atan (anything) nan)                -> nan
+;;;   (atan nan (anything))                -> nan
+;;;   (atan +inf +inf)                     -> +pi/4
+;;;   (atan -inf +inf)                     -> -pi/4
+;;;   (atan +inf -inf)                     -> +3pi/4
+;;;   (atan -inf -inf)                     -> -3pi/4
+;;;   (atan -(anything-but/inf+nan), +inf) -> -0
+;;;   (atan +(anything-but/inf+nan), +inf) -> +0
+;;;   (atan +(anything-but/inf+nan), -inf) -> +pi
+;;;   (atan -(anything-but/inf+nan), -inf) -> -pi
+;;;   (atan +inf (anything-but/0+inf+nan)) -> +pi/2
+;;;   (atan -inf (anything-but/0+inf+nan)) -> -pi/2
 ;;;
 
 ;;; Error tests