Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	1 Oct 2018 12:17:00 -0000	1.21
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	24 Oct 2018 10:29:13 -0000	1.22
@@ -10,6 +10,14 @@
 namespace eval ::chat {
     ::xo::ChatClass Chat -superclass ::xowiki::Chat
 
+    Chat proc login {-chat_id {-package_id ""} {-mode ""} {-path ""}} {
+        if {$package_id eq "" && [chat_room_exists_p $chat_id]} {
+            chat_room_get -room_id $chat_id -array c
+            set package_id $c(context_id)
+        }
+        next -chat_id $chat_id -package_id $package_id -mode $mode -path $path
+    }
+
     Chat instproc initialize_nsvs {} {
         next