diff --git a/source/base/video-colors.ads b/source/base/video-colors.ads
index d7639d1..32fcf7b 100644
--- a/source/base/video-colors.ads
+++ b/source/base/video-colors.ads
@@ -48,7 +48,7 @@ package Video.Colors with Pure is
 		R : Color_Component;
 		G : Color_Component;
 		B : Color_Component;
-		A : Opacity := From_8_Bit (2**Color_Component_Bits - 1);
+		A : Opacity := Opaque;
 	end record;
 
 	function RGB_8 (