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 -N -r1.48 -r1.49
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	21 Nov 2018 11:20:31 -0000	1.48
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	21 Nov 2018 12:32:18 -0000	1.49
@@ -408,9 +408,6 @@
     {-package_id ""}
     {-mode ""}
     {-path ""}
-    -login_messages_p
-    -logout_messages_p
-    -timewindow
   } {
     #:log "--chat"
     if {![ns_conn isconnected]} return
@@ -524,22 +521,11 @@
       </div>
     }]
 
-    set chat_cmd [list \
-                      [self] create c1 \
-                      -destroy_on_cleanup \
-                      -chat_id    $chat_id \
-                      -session_id $session_id \
-                      -mode       $mode]
-    # We don't want to override Chat class default with our own and
-    # therefore we build the command dynamically depending if these
-    # variables are there or not.
-    set optional_vars [list login_messages_p logout_messages_p timewindow]
-    foreach var $optional_vars {
-      if {[info exists $var]} {
-        lappend chat_cmd -${var} [set $var]
-      }
-    }
-    {*}$chat_cmd
+    [self] create c1 \
+        -destroy_on_cleanup \
+        -chat_id    $chat_id \
+        -session_id $session_id \
+        -mode       $mode
 
     set data [c1 login]
     if {$data ne ""} {