diff --git a/ChangeLog b/ChangeLog
index 6168c8ab54..5b3641da81 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 1999-08-17  Ulrich Drepper  <drepper@cygnus.com>
 
+	* sysdeps/ieee754/dbl-64/s_erf.c: Correct type in performance increase
+	rewrite.  Patch by Alan Stern <stern@kitsilano.rowland.org>.
+
 	* timezone/private.h: Update from tzcode1999e.
 	* timezone/zic.c: Likewise.
 
diff --git a/sysdeps/ieee754/dbl-64/s_erf.c b/sysdeps/ieee754/dbl-64/s_erf.c
index d8b6629a72..94fb5c964f 100644
--- a/sysdeps/ieee754/dbl-64/s_erf.c
+++ b/sysdeps/ieee754/dbl-64/s_erf.c
@@ -246,8 +246,8 @@ sb[]  =  {0.0,3.03380607434824582924e+01, /* 0x403E568B, 0x261D5190 */
 	    Q2 = qa[2]+s*qa[3];
 	    P3 = pa[4]+s*pa[5];
 	    Q3 = qa[4]+s*qa[5];
-	    P4 = s6*pa[6];
-	    Q4 = s6*qa[6];
+	    P4 = pa[6];
+	    Q4 = qa[6];
 	    P = P1 + s2*P2 + s4*P3 + s6*P4;
 	    Q = Q1 + s2*Q2 + s4*Q3 + s6*Q4;
 #endif
@@ -362,8 +362,8 @@ weak_alias (__erf, erfl)
 	    Q2 = qa[2]+s*qa[3];
 	    P3 = pa[4]+s*pa[5];
 	    Q3 = qa[4]+s*qa[5];
-	    P4 = s6*pa[6];
-	    Q4 = s6*qa[6];
+	    P4 = pa[6];
+	    Q4 = qa[6];
 	    P = P1 + s2*P2 + s4*P3 + s6*P4;
 	    Q = Q1 + s2*Q2 + s4*Q3 + s6*Q4;
 #endif