diff --git a/common/i945/hw-gfx-gma-connectors.adb b/common/i945/hw-gfx-gma-connectors.adb
index 383f7d3..5286f46 100644
--- a/common/i945/hw-gfx-gma-connectors.adb
+++ b/common/i945/hw-gfx-gma-connectors.adb
@@ -71,7 +71,7 @@
 
    ----------------------------------------------------------------------------
 
-   procedure Pre_Off (Port_Cfg : Port_Config)
+   procedure Pre_Off (Pipe : Pipe_Index; Port_Cfg : Port_Config)
    is
    begin
       pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
@@ -80,7 +80,7 @@
       Panel.Off (Port_Cfg.Panel);
    end Pre_Off;
 
-   procedure Post_Off (Port_Cfg : Port_Config)
+   procedure Post_Off (Pipe : Pipe_Index; Port_Cfg : Port_Config)
    is
    begin
       pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));