diff -ru markup/markup_document.ml markup.new/markup_document.ml
--- markup/markup_document.ml	Thu Jan 27 16:51:56 2000
+++ markup.new/markup_document.ml	Sun Mar 12 03:38:00 2000
@@ -355,7 +355,7 @@
 
 
 class ['ext] element_impl an_ext : ['ext] node =
-    object (self:'self)
+    object (self : 'self)
       inherit ['ext] node_impl an_ext as super
 
       val mutable content_model = Any
diff -ru markup/markup_entity.ml markup.new/markup_entity.ml
--- markup/markup_entity.ml	Mon Feb 21 20:06:58 2000
+++ markup.new/markup_entity.ml	Sun Mar 12 03:39:22 2000
@@ -98,7 +98,7 @@
       >}
 
 
-    method private warn_not_latin1 (k:int) =
+    method private warn_not_latin1 (k : int) =
       (* Called if a character not representable in Latin 1 has been found.
        * k is the character code.
        *)
@@ -425,7 +425,7 @@
 
     (* This resolver takes the in_channel ch as character source. *)
     val ch = (ch : in_channel)
-    method private init_in (_:ext_id) = ()
+    method private init_in (_ : ext_id) = ()
     method private next_string s ofs len =
       input ch s ofs len
     method close_in = ()
@@ -443,7 +443,7 @@
     (* This resolver takes the string str as character source. *)
     val str = (str : string)
     val mutable pos = 0
-    method private init_in (_:ext_id) = ()
+    method private init_in (_ : ext_id) = ()
     method private next_string s ofs len =
       let l = min len (String.length str - pos) in
       String.blit str pos s ofs l;
@@ -997,14 +997,14 @@
 
     method is_ndata = true
 
-    method private set_encoding (_:string) =
+    method private set_encoding (_ : string) =
       assert false
 
     method xml_declaration = (None : (string*string) list option)
 
-    method set_debugging_mode (_:bool) = ()
+    method set_debugging_mode (_ : bool) = ()
 
-    method open_entity (_:bool) (_:lexers) =
+    method open_entity (_ : bool) (_ : lexers) =
       ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
 	  : unit )
 
@@ -1277,7 +1277,7 @@
     replacement_text <- scan_and_expand();
     is_open <- false;
 
-    method private set_encoding (e:string) =
+    method private set_encoding (e : string) =
       raise(Validation_error("The encoding cannot be changed in internal entities"))