diff --git a/common/hw-gfx-gma-pipe_setup.adb b/common/hw-gfx-gma-pipe_setup.adb
index d62475e..50b63e5 100644
--- a/common/hw-gfx-gma-pipe_setup.adb
+++ b/common/hw-gfx-gma-pipe_setup.adb
@@ -567,7 +567,8 @@
            (Register => Registers.GMCH_PFIT_CONTROL,
             Value    => PF_CTRL_ENABLE or PF_Ctrl_Pipe_Sel or PF_Ctrl_Scaling);
       else
-         Debug.Put_Line ("GMCH Pannel fitter already in use, skipping...");
+         pragma Debug (Debug.Put_Line
+           ("GMCH Pannel fitter already in use, skipping..."));
       end if;
    end Setup_Gmch_Panel_Fitter;