Index: openacs-4/packages/chat/www/room.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room.tcl,v
diff -u -N -r1.8.4.4 -r1.8.4.5
--- openacs-4/packages/chat/www/room.tcl	23 Nov 2016 13:50:51 -0000	1.8.4.4
+++ openacs-4/packages/chat/www/room.tcl	23 Nov 2016 19:51:16 -0000	1.8.4.5
@@ -50,18 +50,17 @@
 ###
 # Get room basic information.
 ###
-db_1row room_info "
-    select pretty_name,
-           description,
-           moderated_p, 
-           active_p, 
-           archive_p, 
-           auto_flush_p, 
-           auto_transcript_p,
-           login_messages_p,
-           logout_messages_p
-    from chat_rooms
-    where room_id = :room_id"
+chat_room_get -room_id $room_id -array r
+set pretty_name          $r(pretty_name)
+set description          $r(description)
+set moderated_p          $r(moderated_p)
+set active_p             $r(active_p)
+set archive_p            $r(archive_p)
+set auto_flush_p         $r(auto_flush_p)
+set auto_transcript_p    $r(auto_transcript_p)
+set login_messages_p     $r(login_messages_p)
+set logout_messages_p    $r(logout_messages_p)
+set messages_time_window $r(messages_time_window)
 
 # prettify flags
 foreach property {