diff --git a/ChangeLog b/ChangeLog
index 64935409da..ce50cdd84b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-06-10  Jakub Jelinek   <jj@ultra.linux.cz>
+
+	* sysdeps/libm-ieee754/s_truncl.c: Subtract exponent
+	bias from the raw exponent.
+
 1999-06-11  Ulrich Drepper  <drepper@cygnus.com>
 
 	* inet/arpa/tftp.h: Move attribute declaration in right position.
diff --git a/sysdeps/libm-ieee754/s_truncl.c b/sysdeps/libm-ieee754/s_truncl.c
index 206eab2f22..59c3b9c173 100644
--- a/sysdeps/libm-ieee754/s_truncl.c
+++ b/sysdeps/libm-ieee754/s_truncl.c
@@ -1,5 +1,5 @@
 /* Truncate argument to nearest integral value not larger than the argument.
-   Copyright (C) 1997 Free Software Foundation, Inc.
+   Copyright (C) 1997, 1999 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
 
@@ -32,7 +32,7 @@ __truncl (long double x)
 
   GET_LDOUBLE_WORDS (se, i0, i1, x);
   sx = se & 0x8000;
-  j0 = se & 0x7fff;
+  j0 = (se & 0x7fff) - 0x3fff;
   if (j0 < 31)
     {
       if (j0 < 0)