diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog
index 7bdd480ca8..61a80b246c 100644
--- a/c/src/ada/ChangeLog
+++ b/c/src/ada/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-01	Joel Sherrill <joel.sherrill@OARcorp.com>
+
+	* rtems.adb, rtems.ads: Most of single processor Ada tests now build.
+	Some run.
+
 2007-09-05	Joel Sherrill <joel.sherrill@oarcorp.com>
 
 	* rtems.adb: Fix warnings.
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb
index 7680258ce5..b30390ffec 100644
--- a/c/src/ada/rtems.adb
+++ b/c/src/ada/rtems.adb
@@ -215,6 +215,21 @@ package body RTEMS is
    --  RTEMS API
    --
 
+   --
+   --  Initialization Manager -- Shutdown Only
+   --
+   procedure Shutdown_Executive (
+      Status           : in     RTEMS.Unsigned32
+   ) is
+      procedure Shutdown_Executive_Base (
+         Status : RTEMS.Unsigned32
+      );
+      pragma Import (C, Shutdown_Executive_Base, "rtems_shutdown_executive");
+   begin
+      Shutdown_Executive_Base (Status);
+   end Shutdown_Executive;
+  
+
    --
    --  Task Manager
    --
diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads
index 9bff212fef..a13ccee0a9 100644
--- a/c/src/ada/rtems.ads
+++ b/c/src/ada/rtems.ads
@@ -616,6 +616,13 @@ pragma Elaborate_Body (RTEMS);
    --  RTEMS API
    --
 
+   --
+   --  Initialization Manager -- Shutdown Only
+   --
+   procedure Shutdown_Executive (
+      Status           : in     RTEMS.Unsigned32
+   );
+
    --
    --  Task Manager
    --