1.1 --- a/src/Pure/Tools/isabelle_process.ML	Sun Aug 24 18:11:20 2008 +0200
     1.2 +++ b/src/Pure/Tools/isabelle_process.ML	Sun Aug 24 18:57:43 2008 +0200
     1.3 @@ -85,11 +85,10 @@
     1.4  
     1.5  fun init_message () =
     1.6    let
     1.7 -    val class = (Markup.classN, Markup.initN);
     1.8      val pid = (Markup.pidN, string_of_pid (Posix.ProcEnv.getpid ()));
     1.9      val session = (Markup.sessionN, List.last (Session.id ()) handle List.Empty => "unknown");
    1.10 -    val props = message_props [class, pid, session];
    1.11 -  in Output.writeln_default (special "H" ^ props ^ Session.welcome () ^ special_end) end;
    1.12 +    val text = message_text Markup.initN [XML.Text (Session.welcome ())];
    1.13 +  in Output.writeln_default (special "H" ^ message_props [pid, session] ^ text ^ special_end) end;
    1.14  
    1.15  end;
    1.16