Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/chat/tcl/chat-procs.tcl	24 Oct 2018 09:14:27 -0000	1.23
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	24 Oct 2018 10:29:13 -0000	1.24
@@ -264,6 +264,7 @@
     acs_object::get \
         -object_id $room_id \
         -array obj
+    set row(context_id)     $obj(context_id)
     set row(creation_user)  $obj(creation_user)
     set row(creation_date)  $obj(creation_date_ansi)
     set row(creation_ip)    $obj(creation_ip)