Index: openacs-4/packages/xotcl-core/www/admin/toggle-debug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/admin/toggle-debug.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/www/admin/toggle-debug.tcl	7 Aug 2017 23:48:30 -0000	1.2
+++ openacs-4/packages/xotcl-core/www/admin/toggle-debug.tcl	24 Dec 2017 12:28:07 -0000	1.3
@@ -57,9 +57,11 @@
 }
 set cmd [list {*}$scope ::nsf::method::property $obj {*}$modifier $method debug [expr {!$debug_p}]]
 ns_log notice "setting debug flag with cmd\n$cmd"
-if {[catch {ns_eval {*}$cmd} errorMsg] } {
+ad_try {
+    ns_eval {*}$cmd
+} on error {errorMsg} {
     ns_log notice "toggle-debug raised error: $errorMsg"
 }
-ns_log notice "calling return redirect to $return_url"
 
+ns_log notice "calling return redirect to $return_url"
 ad_returnredirect $return_url