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
     }