diff --git a/gfxtest/hw-gfx-gma-gfx_test.adb b/gfxtest/hw-gfx-gma-gfx_test.adb
index e5bc393..86ec44b 100644
--- a/gfxtest/hw-gfx-gma-gfx_test.adb
+++ b/gfxtest/hw-gfx-gma-gfx_test.adb
@@ -630,10 +630,9 @@
    procedure Print_Usage
    is
    begin
-      Debug.Put_Line
-        ("Usage: " & Ada.Command_Line.Command_Name &
-         " <delay seconds>" &
-         " [(0|90|180|270)]");
+      Debug.Put ("Usage: ");
+      Debug.Put (Ada.Command_Line.Command_Name);
+      Debug.Put_Line (" <delay seconds> [(0|90|180|270)]");
       Debug.New_Line;
    end Print_Usage;