Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	13 Dec 2017 20:42:31 -0000	1.29
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	24 Dec 2017 12:28:07 -0000	1.30
@@ -152,7 +152,7 @@
       # was 1200
       if {$ago > 300} {
         :logout -user_id $user -msg "auto logout"
-        catch {::bgdelivery do ::Subscriber sweep chat-[:chat_id]}
+        try {::bgdelivery do ::Subscriber sweep chat-[:chat_id]}
       }
     }
     :log "-- ending"
@@ -168,13 +168,13 @@
     
     # This values could already not be here. Just ignore when we don't
     # find them
-    catch {
+    try {
       ::xo::clusterwide nsv_unset -nocomplain ${:array}-login $user_id
     }
-    catch {
+    try {
       ::xo::clusterwide nsv_unset -nocomplain ${:array}-color $user_id
     }
-    catch {
+    try {
       ::xo::clusterwide nsv_unset -nocomplain ${:array}-last-activity $user_id
     }
   }