Index: openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/xotcl-chat-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	1 Mar 2019 17:26:00 -0000	1.1.2.1
+++ openacs-4/packages/chat/tcl/xotcl-chat-procs.tcl	2 Mar 2019 17:51:10 -0000	1.1.2.2
@@ -159,6 +159,14 @@
         }
     }
 
+    ::xo::db::chat_room instproc get_instance_from_db {} {
+        next
+        ::xo::dc 1row get_metadata {
+            select context_id, creation_ip, creation_user
+            from acs_objects where object_id = :room_id
+        }
+    }
+
     ::xo::db::chat_room instproc save_new {} {
         if {![info exists :creation_user]} {
             set :creation_user [expr {[ns_conn isconnected] ? [ad_conn user_id] : ""}]