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
 
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)
Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/chat/www/chat.tcl	1 Oct 2018 12:17:00 -0000	1.19
+++ openacs-4/packages/chat/www/chat.tcl	24 Oct 2018 10:29:13 -0000	1.20
@@ -56,7 +56,6 @@
 template::head::add_css -href resources/chat.css
 
 set chat_frame [::chat::Chat login \
-                    -package_id [ad_conn package_id] \
                     -chat_id    $room_id]
 
 # Local variables:
Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	1 Oct 2018 17:22:49 -0000	1.32
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	24 Oct 2018 10:29:13 -0000	1.33
@@ -9,7 +9,7 @@
 namespace eval ::xowiki {
   ::xo::ChatClass create Chat -superclass ::xo::Chat
 
-  ::xo::ChatClass instproc login {-chat_id -package_id {-mode ""} {-path ""}} {
+  ::xo::ChatClass instproc login {-chat_id {-package_id ""} {-mode ""} {-path ""}} {
     #:log "--chat"
     if {![ns_conn isconnected]} return
     auth::require_login
@@ -21,7 +21,7 @@
                                  -party_id [ad_conn user_id]]
     }
 
-    if {![info exists package_id]} {
+    if {$package_id eq ""} {
       set package_id $xowiki_package_id
     }