diff --git a/common/hw-gfx-gma-registers.adb b/common/hw-gfx-gma-registers.adb
index a59a4f7..012ccf6 100644
--- a/common/hw-gfx-gma-registers.adb
+++ b/common/hw-gfx-gma-registers.adb
@@ -504,7 +504,7 @@
       Success    :    out Boolean) is
    begin
       Wait (Register, Mask, 0, TOut_MS, Verbose, Success);
-   end;
+   end Wait_Unset_Mask;
 
    procedure Wait_Unset_Mask
      (Register : Registers_Index;