diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog
index e5fff944e0..32055f6d98 100644
--- a/c/src/ada/ChangeLog
+++ b/c/src/ada/ChangeLog
@@ -1,3 +1,7 @@
+2005-05-23	Joel Sherrill <joel@OARcorp.com>
+
+	* rtems.adb: Fix variable name.
+
 2005-05-23	Joel Sherrill <joel@OARcorp.com>
 
 	PR rtems_misc/795
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb
index 3043ad668c..4c90d46bf1 100644
--- a/c/src/ada/rtems.adb
+++ b/c/src/ada/rtems.adb
@@ -1531,7 +1531,7 @@ package body RTEMS is
          ID,
          Segment,
          Size,
-         Size_Base'Unchecked_Access
+         Old_Size_Base'Unchecked_Access
       );
       Old_Size := Old_Size_Base;