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.11.6.6 -r1.11.6.7
--- openacs-4/packages/chat/tcl/chat-procs.tcl	28 Nov 2016 11:25:45 -0000	1.11.6.6
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	18 Jan 2017 18:23:24 -0000	1.11.6.7
@@ -30,7 +30,7 @@
 
     # Wait until chat server started before spawning new threads connecting to the server.
     while { $done == 0} {
-        if [catch {set fds [ns_sockopen -nonblock $host_location $port]} errmsg] {
+        if {[catch {set fds [ns_sockopen -nonblock $host_location $port]} errmsg]} {
             set done 0
         } else {
             set done 1