diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 91ef80568c5..43d42eb8de8 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-25  Robert Dewar <dewar@gnat.com>
+
+	* exp_ch4.adb (Expand_N_Allocator): Minor reformatting.
+
 2001-10-25  Geert Bosch  <bosch@gnat.com>
 
 	* osint.adb (Is_Relative): Remove duplicate.
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 33c6f14468a..8c299c1dc14 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -1840,8 +1840,8 @@ package body Exp_Ch4 is
                           and then Is_Entity_Name (Prefix (Nam))
                         then
                            Decls :=
-                             Build_Task_Image_Decls (
-                             Loc, Nam, Etype (Prefix (Nam)));
+                             Build_Task_Image_Decls
+                               (Loc, Nam, Etype (Prefix (Nam)));
                         else
                            Decls := Build_Task_Image_Decls (Loc, T, T);
                         end if;