diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog
index 052705b346..ba086097f5 100644
--- a/c/src/ada/ChangeLog
+++ b/c/src/ada/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-27	Joel Sherrill <joel@OARcorp.com>
+
+	* rtems.ads: Corrected binding for Io_Initialize.
+
 2001-08-23	Ralf Corsepius <corsepiu@faw.uni-ulm.de>
 
 	* configure.ac: New.
diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads
index cdbadac9a3..d721b0c0d0 100644
--- a/c/src/ada/rtems.ads
+++ b/c/src/ada/rtems.ads
@@ -1323,7 +1323,6 @@ pragma Elaborate_Body (RTEMS);
       Major        : in     RTEMS.Device_Major_Number;
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    );
 
@@ -1450,4 +1449,4 @@ pragma Elaborate_Body (RTEMS);
   Configuration : RTEMS.Configuration_Table_Pointer;
   pragma Import (C, Configuration, "_Configuration_Table");
 
-end RTEMS;
\ No newline at end of file
+end RTEMS;
diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog
index 052705b346..ba086097f5 100644
--- a/cpukit/ada/ChangeLog
+++ b/cpukit/ada/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-27	Joel Sherrill <joel@OARcorp.com>
+
+	* rtems.ads: Corrected binding for Io_Initialize.
+
 2001-08-23	Ralf Corsepius <corsepiu@faw.uni-ulm.de>
 
 	* configure.ac: New.
diff --git a/cpukit/ada/rtems.ads b/cpukit/ada/rtems.ads
index cdbadac9a3..d721b0c0d0 100644
--- a/cpukit/ada/rtems.ads
+++ b/cpukit/ada/rtems.ads
@@ -1323,7 +1323,6 @@ pragma Elaborate_Body (RTEMS);
       Major        : in     RTEMS.Device_Major_Number;
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    );
 
@@ -1450,4 +1449,4 @@ pragma Elaborate_Body (RTEMS);
   Configuration : RTEMS.Configuration_Table_Pointer;
   pragma Import (C, Configuration, "_Configuration_Table");
 
-end RTEMS;
\ No newline at end of file
+end RTEMS;