diff --git a/CHANGES.md b/CHANGES.md
index bb71b71c5..54bbdfb44 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,8 @@
+# NEXT
+
+* Fix typo `whitout` in type definition
+	(#324 by Martin @MBodin Bodin)
+
 # 4.6.0
 
 * Update for OCaml 5.0 and drop support for OCaml 4.2.0
diff --git a/lib/svg_f.ml b/lib/svg_f.ml
index 3a6a13ff5..d9c20635c 100644
--- a/lib/svg_f.ml
+++ b/lib/svg_f.ml
@@ -90,7 +90,7 @@ let string_of_color s = s
 
 let string_of_icccolor s = s
 
-let string_of_paint_whitout_icc = function
+let string_of_paint_without_icc = function
   | `None -> "none"
   | `CurrentColor -> "currentColor"
   | `Color (c, icc) -> opt_concat (string_of_color c) string_of_icccolor icc
@@ -98,8 +98,8 @@ let string_of_paint_whitout_icc = function
 let string_of_paint = function
   | `Icc (iri, None) -> string_of_iri iri
   | `Icc (iri, Some b) ->
-    (string_of_iri iri) ^" "^ (string_of_paint_whitout_icc b)
-  | #paint_whitout_icc as c -> string_of_paint_whitout_icc c
+    (string_of_iri iri) ^" "^ (string_of_paint_without_icc b)
+  | #paint_without_icc as c -> string_of_paint_without_icc c
 
 let string_of_fill_rule = function
   | `Nonzero -> "nonzero"
diff --git a/lib/svg_types.mli b/lib/svg_types.mli
index a786da522..a20df4ac4 100644
--- a/lib/svg_types.mli
+++ b/lib/svg_types.mli
@@ -277,16 +277,18 @@ type percentage = float
 type strings = string list
 
 type color = string
+
+(* ICC color profile specification *)
 type icccolor = string
 
-type paint_whitout_icc =
+type paint_without_icc =
   [ `None | `CurrentColor
   | `Color of (color * icccolor option)
   ]
 
 type paint =
-  [ paint_whitout_icc
-  | `Icc of (iri * paint_whitout_icc option) ]
+  [ paint_without_icc
+  | `Icc of (iri * paint_without_icc option) ]
 
 type fill_rule =
   [ `Nonzero