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.20 -r1.21
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	7 Aug 2017 23:48:30 -0000	1.20
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	1 Oct 2017 12:10:25 -0000	1.21
@@ -99,7 +99,7 @@
     # small javascript library to obtain a portable ajax request object
     ::xo::Page requireJS "/resources/xowiki/get-http-object.js"
 
-    switch $mode {
+    switch -- $mode {
       polling {
         set jspath packages/xowiki/www/ajax/chat.js
         set login_url  ${path}ajax/chat?m=login&$context
@@ -142,7 +142,7 @@
 
     template::add_body_script -script [subst {document.getElementById('chatMsg').focus();}]
 
-    switch $mode {
+    switch -- $mode {
       polling {
         template::add_event_listener \
             -id "messages-form" \