diff --git a/color.ml b/color.ml
index 7df658f34559f18d0cc0ce1d31e7095f64421fff..0d61a8d42ae0bfc37e820c8f37a1504bfbcb7eba 100644
--- a/color.ml
+++ b/color.ml
@@ -51,6 +51,10 @@ let rec short = function
   | Function ("rgb", Nary (",", [r; g; b])) ->
     Function ("rgb", Nary (",", [clip r; clip g; clip b]))
 
+  (* rgba(r,g,b,1.0) -> rgb(r,g,b) *)
+  | Function ("rgba", Nary (",", [r; g; b; Number (1., None)])) ->
+    short (Function ("rgb", Nary (",", [r; g; b])))
+
   | v -> v
 
 let transform = function