diff --git a/ChangeLog b/ChangeLog
index 6892a1b546..a95766fa4d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-16  Martin Schwidefsky  <schwidefsky@de.ibm.com>
+
+	* sysdeps/unix/sysv/linux/s390/s390-64/clone.S: Fix stack allocation.
+
 2001-05-16  Bruce Mitchener  <bruce@cubik.org>
 
 	* manual/llio.texi:  Many grammar and typo fixes to the section
diff --git a/sysdeps/unix/sysv/linux/s390/s390-64/clone.S b/sysdeps/unix/sysv/linux/s390/s390-64/clone.S
index c6b160ac39..a491b09518 100644
--- a/sysdeps/unix/sysv/linux/s390/s390-64/clone.S
+++ b/sysdeps/unix/sysv/linux/s390/s390-64/clone.S
@@ -46,7 +46,7 @@ thread_start:
 	/* fn is in gpr 1, arg in gpr 5 */
 	lgr	%r2,%r5		/* set first parameter to void *arg */
 	sgr	%r11,%r11	/* terminate the stack frame */
-	aghi	%r15,-96	/* make room on the stack for the save area */
+	aghi	%r15,-160	/* make room on the stack for the save area */
 	basr	%r14,%r1	/* jump to fn */
 #ifdef PIC
 	larl	%r12,_GLOBAL_OFFSET_TABLE_