--- loncom/interface/longroupchat.pm	2006/03/29 21:14:23	1.2
+++ loncom/interface/longroupchat.pm	2006/04/13 20:56:54	1.4
@@ -48,17 +48,22 @@ sub handler {
 		&Apache::lonnet::unescape($group_info{description});
         }
     }
-    my $html = &Apache::lonxml::xmlbegin();
-    my $head = &Apache::loncommon::head($grouptitle);
+
+    my $start_page =
+	&Apache::loncommon::start_page($grouptitle,undef,
+				       {'frameset'    => 1,
+					'add_entries' => {
+					    'rows'   => "80,100,*",
+					    'border' => "0"},});
+    my $end_page =
+	&Apache::loncommon::end_page({'frameset' => 1});
+
     $r->print(<<"END");
-$html
-$head
-<frameset border="0" rows="80,100,*">
+$start_page
 <frame name="chatacc" src="/adm/chatfetch?group=$group">
 <frame name="chatpost" src="/adm/chat?group=$group">
 <frame name="chatout" src="/adm/rat/empty.html">
-</frameset>
-</html>
+$end_page
 END
 
 }