diff --git a/cpukit/ChangeLog b/cpukit/ChangeLog
index 540f5b9a4f..4562f0d37a 100644
--- a/cpukit/ChangeLog
+++ b/cpukit/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-16	Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* libgnat/adasupp.c: Add helper method so Ada binding does not
+	reference _TOD_Microseconds_per_tick.
+
 2008-12-16	Joel Sherrill <joel.sherrill@oarcorp.com>
 
 	* sapi/include/rtems/config.h: Remove commented out lines. Add macro
diff --git a/cpukit/libgnat/adasupp.c b/cpukit/libgnat/adasupp.c
index c74fe3b34b..5af4730a65 100644
--- a/cpukit/libgnat/adasupp.c
+++ b/cpukit/libgnat/adasupp.c
@@ -10,10 +10,10 @@
 #include <pthread.h>
 
 #include <rtems/system.h>
+#include <rtems/config.h>
 #include <rtems/posix/pthread.h>
 
-/*PAGE
- *
+/*
  *  _ada_pthread_minimum_stack_size
  *
  *  This routine returns the minimum stack size so the GNAT RTS can
@@ -29,3 +29,8 @@ size_t _ada_pthread_minimum_stack_size( void )
 
   return PTHREAD_MINIMUM_STACK_SIZE * 2;
 }
+
+uint32_t _ada_microseconds_per_tick(void)
+{
+  return rtems_configuration_get_microseconds_per_tick();
+}