--- kgsueme/kgsueme/room.pl	2003/06/01 15:43:58	1.9
+++ kgsueme/kgsueme/room.pl	2003/06/01 16:51:38	1.10
@@ -60,7 +60,8 @@
    my ($self, $msg) = @_;
 
    # secret typoe ;-)
-   $self->{text}->append_text("\n<user>$msg->{name}</user><marker>:</marker> $msg->{message}");
+   $self->{text}->append_text("\n<header><user>" . (util::toxml $msg->{name})
+                              . "</user>: </header>" . (util::toxml $msg->{message}));
 }
 
 sub event_update_users {
@@ -85,7 +86,8 @@
 sub event_update_roominfo {
    my ($self) = @_;
 
-   $self->{text}->append_text("\n<owner>$self->{owner}</owner>\n<description>$self->{description}</description>\n");
+   $self->{text}->append_text("\n<owner>" . (util::toxml $self->{owner}) . "</owner>\n"
+                              . "<description>" . (util::toxml $self->{description}) . "</description>\n");
 }
 
 1;