diff --git a/src/lisp/s_log1p.c b/src/lisp/s_log1p.c
index eaec38a5f2ae7e709e4b2bac0fe614b7863ed074..87ed92773236a52e7908e1c22ad237bad9069d0e 100644
--- a/src/lisp/s_log1p.c
+++ b/src/lisp/s_log1p.c
@@ -159,8 +159,14 @@ static double zero = 0.0;
 	}
 	hfsq=0.5*f*f;
 	if(hu==0) {	/* |f| < 2**-20 */
-	    if(f==zero) if(k==0) return zero;  
-			else {c += k*ln2_lo; return k*ln2_hi+c;}
+	    if(f==zero) {
+                if(k==0)
+                    return zero;  
+                else {
+                    c += k*ln2_lo; return k*ln2_hi+c;
+                }
+            }
+            
 	    R = hfsq*(1.0-0.66666666666666666*f);
 	    if(k==0) return f-R; else
 	    	     return k*ln2_hi-((R-(k*ln2_lo+c))-f);