Index: openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	13 Dec 2017 20:42:31 -0000	1.11
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	24 Dec 2017 12:28:07 -0000	1.12
@@ -74,10 +74,12 @@
     set addr [lindex [ns_set iget [ns_conn headers] x-forwarded-for] end]
     if {$addr eq ""} {set addr [ns_conn peeraddr]}
     #ns_log notice "--cluster got cmd='$cmd' from $addr"
-    if {[catch {set result [::xo::Cluster execute [ns_conn peeraddr] $cmd]} errorMsg]} {
+    ad_try {
+      set result [::xo::Cluster execute [ns_conn peeraddr] $cmd]
+    } on error {errorMsg} {
       ns_log notice "--cluster error: $errorMsg"
       ns_return 417 text/plain $errorMsg
-    } else {
+    } on ok {r} {
       #ns_log notice "--cluster success $result"
       ns_return 200 text/plain $result
     }