.

diff --git a/src/tag.ml b/src/tag.ml
index 01d3788..ce1979c 100644 (file)
--- a/src/tag.ml
+++ b/src/tag.ml
@@ -17,6 +17,11 @@ type operations = {
   translate : pool -> t -> t
 }
 
+let dummy_fun =function _ -> failwith "Tag.ml Uninitialized tag structure"
+
+
+
+
 external null_pool : unit -> pool = "caml_xml_tree_nullt"
 external null_tag : unit -> t = "caml_xml_tree_nullt"
 external register_tag : pool -> string -> t = "caml_xml_tree_register_tag"