diff --git a/src/s_expm1.c b/src/s_expm1.c
index fd125d9..369598d 100644
--- a/src/s_expm1.c
+++ b/src/s_expm1.c
@@ -147,7 +147,7 @@ expm1(double x)
 		    GET_LOW_WORD(low,x);
 		    if(((hx&0xfffff)|low)!=0)
 		         return x+x; 	 /* NaN */
-		    else return (xsb==0)? x:-1.0;/* exp(+-inf)={inf,-1} */
+		    else return (xsb==0)? x:-1.0;/* exp(+-inf)-1={inf,-1} */
 	        }
 	        if(x > o_threshold) return huge*huge; /* overflow */
 	    }