diff --git a/common/direct/hw-pci-dev.adb b/common/direct/hw-pci-dev.adb
index 3d76521..8a1a56b 100644
--- a/common/direct/hw-pci-dev.adb
+++ b/common/direct/hw-pci-dev.adb
@@ -78,8 +78,8 @@
 
    procedure Resource_Size (Length : out Natural; Res : Resource)
    is
-      use Type HW.Word16;
-      use Type HW.Word32;
+      use type HW.Word16;
+      use type HW.Word32;
 
       Cmd : Word16;
       Base, Backup : Word32;