diff --git a/gcc/ada/5ntaprop.adb b/gcc/ada/5ntaprop.adb
index 697874c68d2deb6a428244eef25d360e3f461415..fd6ce7802e347ebfd3f27a115db5be19df73a92b 100644
--- a/gcc/ada/5ntaprop.adb
+++ b/gcc/ada/5ntaprop.adb
@@ -45,9 +45,6 @@ with System.Tasking;
 --  used for Ada_Task_Control_Block
 --           Task_ID
 
-with System.OS_Primitives;
---  used for Delay_Modes
-
 with System.Error_Reporting;
 --  used for Shutdown
 
@@ -55,7 +52,6 @@ package body System.Task_Primitives.Operations is
 
    use System.Tasking;
    use System.Parameters;
-   use System.OS_Primitives;
 
    -----------------
    -- Stack_Guard --
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7c5f96095c500ef353f0dfac7664758996ccf896..9bdbc0ede5f45cc10a5a3a2865e460049f82da02 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,7 @@
 2002-05-31  Florian Weimer  <fw@deneb.enyo.de>
 
+	* 5ntaprop.adb (with System.OS_Primitives): Remove.
+
 	* cstreams.c (max_path_len): Move from here ...
 	* adaint.c (__gnat_max_path_len): ... to here.
 	* adaint.c (__gnat_max_path_len): Declare.