diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d78dd6c6248..de768353572 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-13  Hartmut Penner  <hpenner@de.ibm.com>
+
+        * config/s390/s390.h (PROFILE_BEFORE_PROLOGUE): Emit profile code
+        before prologue, to avoid scheduling problems.
+
 2002-03-13  Jakub Jelinek  <jakub@redhat.com>
 
 	* config/sparc/sparc.h (INITIAL_FRAME_POINTER_OFFSET): Remove.
diff --git a/gcc/config/s390/s390.h b/gcc/config/s390/s390.h
index 93b355caf65..96d91fad457 100644
--- a/gcc/config/s390/s390.h
+++ b/gcc/config/s390/s390.h
@@ -864,7 +864,7 @@ CUMULATIVE_ARGS;
 #define FUNCTION_PROFILER(FILE, LABELNO) 			\
 	s390_function_profiler ((FILE), ((LABELNO)))
 
-/* #define PROFILE_BEFORE_PROLOGUE */
+#define PROFILE_BEFORE_PROLOGUE 1
 
 /* Define EXIT_IGNORE_STACK if, when returning from a function, the stack
    pointer does not matter (provided there is a frame pointer).  */