diff --git a/create_module b/create_module
index 710213a5b0..eb939eb45a 100755
--- a/create_module
+++ b/create_module
@@ -158,7 +158,7 @@ let xml_of_event = fun l ->
   List.map (fun n -> Xml.Element ("event", [("fun", n)], [])) l;;
 
 let xml_of_datalink = fun l ->
-  List.map (fun (m, n) -> Xml.Element ("init", [("message", m); ("fun", n)], [])) l;;
+  List.map (fun (m, n) -> Xml.Element ("datalink", [("message", m); ("fun", n)], [])) l;;
 
 let xml_makefile_of_name = fun n ->
   [Xml.Element ("makefile", [], [