Index: openacs-4/packages/chat/chat.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/chat.info,v
diff -u -r1.22.2.16 -r1.22.2.17
--- openacs-4/packages/chat/chat.info	19 May 2020 10:22:22 -0000	1.22.2.16
+++ openacs-4/packages/chat/chat.info	14 Dec 2020 09:43:37 -0000	1.22.2.17
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="6.0.0d12" url="http://openacs.org/repository/download/apm/chat-6.0.0d12.apm">
+    <version name="6.0.0d13" url="http://openacs.org/repository/download/apm/chat-6.0.0d13.apm">
 	<owner url="http://www.openacs.org">Peter Alberer</owner>
 	<summary>Server based chat with an html and ajax client.</summary>
 	<release-date>2019-03-01</release-date>
@@ -22,7 +22,7 @@
 	</description>
 	<maturity>0</maturity>
 
-	<provides url="chat" version="6.0.0d12"/>
+	<provides url="chat" version="6.0.0d13"/>
 	<requires url="acs-kernel" version="5.9.1"/>
 	<requires url="xowiki" version="5.10.0d24"/>
 
Index: openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl,v
diff -u -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	30 Jul 2020 14:44:08 -0000	1.1.2.13
+++ openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	14 Dec 2020 09:43:37 -0000	1.1.2.14
@@ -382,6 +382,9 @@
                 -references "chat_rooms(room_id) on delete cascade"
         }
 
+    ::xo::db::require index \
+        -table chat_transcripts -col room_id
+
     ::xo::db::chat_transcript ad_instproc save_new {} {
         Save a new transcript, making sure its creator is granted the
         necessary operative privileges.