diff --git a/common/hw-gfx-gma-pipe_setup.adb b/common/hw-gfx-gma-pipe_setup.adb
index 3fcdc4d..5e32281 100644
--- a/common/hw-gfx-gma-pipe_setup.adb
+++ b/common/hw-gfx-gma-pipe_setup.adb
@@ -841,7 +841,7 @@
             Result   => Used_For_Secondary);
          Pipe := (if Used_For_Secondary then Secondary else Primary);
       end if;
-   end;
+   end Gmch_Panel_Fitter_Pipe;
 
    procedure Panel_Fitter_Off (Controller : Controller_Type)
    is