diff --git a/lib/tyxml/tyxml_js.ml b/lib/tyxml/tyxml_js.ml
index ec92a9c969..59374d859a 100644
--- a/lib/tyxml/tyxml_js.ml
+++ b/lib/tyxml/tyxml_js.ml
@@ -76,6 +76,8 @@ module Xml = struct
 
   let comma_sep_attrib name values = attr name (Js.string (String.concat "," values))
 
+  let semicolon_sep_attrib name values = attr name (Js.string (String.concat ";" values))
+
   let event_handler_attrib name (value : event_handler) = name, Event value
 
   let mouse_event_handler_attrib name (value : mouse_event_handler) =
@@ -414,6 +416,9 @@ module R = struct
     let comma_sep_attrib name s =
       attr name (fun f -> Some (Js.string (String.concat "," f))) s
 
+    let semicolon_sep_attrib name s =
+      attr name (fun f -> Some (Js.string (String.concat ";" f))) s
+
     let event_handler_attrib name s = Xml.event_handler_attrib name s
 
     let mouse_event_handler_attrib name s = Xml.mouse_event_handler_attrib name s