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 -N -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 }